gif und jpg in delphi?

foxy · Verfasst: Di 18.02.03 10:34

hi ich wollte mal fragen ob ich ne .gif und eine .jpg in delphi verwenden kann??

also meines wissens kann ich in einer TImage nir .bmps laden oder?

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

Alfons-G · Verfasst: Di 18.02.03 11:16

Zur Darstellung von JPEGs must Du die Unit jpeg einbinden, ein TJPEGImage zur Laufzeit erzeugen, das Bild laden und einem TImage mit assign zuweisen.
Informationen dazu findest Du in der Delphi-Hilfe, sowie hier im Forum mit SUCHEN.

Zur Darstellung von GIFs benötigst Du eine externe Komponente, z.B. das bekannte TGIFImage von Anders Melander. Die Komponente findest Du z.B. bei Torry und Delphi Super Page.

_________________
Alfons Grünewald

foxy · Verfasst: Di 18.02.03 11:29

wunderbar thx
das wollte ich hören

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

foxy · Verfasst: Di 18.02.03 13:06

bei mir gibt es keine jpeg.pas ..... also im borland oder shared ordner gibts die nicht .... kannste mir sagen wo ich die herbekomme oder muss ich die selber schreiben?

Nachtrag: Hat sich erledigt danke

code:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Jpg2Bmp(FileName: String; Bmp: TBitmap); 
var 
  Jpg : TJpegImage; 
begin 
  Jpg := TJpegImage.Create; 
  try 
    Jpg.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Image\int2.jpg');
    Bmp.Assign(Jpg); 
  finally Jpg.Free end; 
end;

aufrufen mit

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TSplashscreen.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Image\int2.jpg'); 

end;

fertig

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme