Entwickler-Ecke
Multimedia / Grafik - gif und jpg in delphi?
foxy - Di 18.02.03 10:34
Titel: gif und jpg in delphi?
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?
Alfons-G - Di 18.02.03 11:16
:wave:
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.
8)
foxy - Di 18.02.03 11:29
wunderbar thx
das wollte ich hören :D
foxy - 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:
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
Quelltext
1:
2:
3:
4:
5:
| procedure TSplashscreen.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Image\int2.jpg');
end; |
fertig :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!