Hallo Leute,
Wenn ich versuche in Timage ein .bmp Bild zu laden bekomme ich ich die Meldung: "Im Projekt project1.exe ist eine Exception der Klasse EInvalidGraphic mit der Meldung 'Unbekannte Bilddateierweiterung' aufgetreten.
Vielen dank,
Lg AnGeLo^
Wenn ich versuche in Timage ein .bmp Bild zu laden bekomme ich ich die Meldung: "Im Projekt project1.exe ist eine Exception der Klasse EInvalidGraphic mit der Meldung 'Unbekannte Bilddateierweiterung' aufgetreten.
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Inifiles;
type
TForm1 = class(TForm)
Image1: TImage;
procedure Form1Create(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Form1Create(Sender: TObject);
Var
ini: Tinifile;
saveplace: string;
begin
ini:=TIniFile.Create('C:\test.ini');
try
saveplace := ini.ReadString('Bildspeicherorte','Slot1','');
finally
ini.Free;
end;
image1.Picture.loadfromfile(' '+saveplace+' ')
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Inifiles;
type
TForm1 = class(TForm)
Image1: TImage;
procedure Form1Create(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Form1Create(Sender: TObject);
Var
ini: Tinifile;
saveplace: string;
begin
ini:=TIniFile.Create('C:\test.ini');
try
saveplace := ini.ReadString('Bildspeicherorte','Slot1','');
finally
ini.Free;
end;
image1.Picture.loadfromfile(' '+saveplace+' ')
end;
end.
Vielen dank,
Lg AnGeLo^
Comment