Ich bin grad selber ein wenig am fummel ein JPG in Image zu bekommen.
Naja, und leider kann ich mit dem oben genanten Code nur die
Exception "TJPEGImage cannot be assigned to TImage" rufen.
:-0
der code:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var jpg: TJPEGImage;
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile(OpenPictureDialog1.FileName);
image1.Width := jpg.Width;
image1.Height := jpg.Height;
image1.Assign(jpg);
end;
end;
Mache ich was falsch? Habe Delphi 6
Gruß,
Alexander