jpg in TImage

[sakura]

Und wie er bereits schrieb, hat er darauf keine Lust.

......

[gekmihesg]

ich wollte ja nur mal schreiben wie man ein jpeg in ein TImage läd...
vielleicht wills ja wer anders wissen...

[sakura]

Zitat von gekmihesg:

ich wollte ja nur mal schreiben wie man ein jpeg in ein TImage läd...

Ehrlich gesagt, könnte ich nichts mit Deinem Code anfangen. Was ist die Variable JPG, wo kommt die her...?

Wann, dann:

Delphi-Quellcode:

uses ...., JPEG;

...
// image1 ist eine Komponente des Typs TImage auf dem Form
Image1.LoadFromFile('C:\Temp\Image.jpg');

......

[gekmihesg]

ok dann nochmal:

Delphi-Quellcode:

uses ..., Jpeg;

...

procedure TForm1.Button1Click(Sender: TObject);
var jpg: tjpegImage;
begin
jpg:= tjpegimage.Create;
jpg.LoadFromFile('C:\test.jpg');
image1.Width:=jpg.Width;
image1.Height:=jpg.Height;
image1.Picture.Assign(jpg);
end;

[sakura]

Jetzt sollte es wirklich helfen.

......

[SirThornberry]

wenn das bild über http geladen werden soll

Delphi-Quellcode:

var stream: TStream;
    jpg1: TjpegImage;
begin
   stream := TMemoryStream.Create;
   http1.Get(doscriptname, stream); //http1 = TidHTTP von den Indys
   stream.Position := 0;

   jpg1 := Tjpegimage.Create;
   jpg1.LoadFromStream(stream);
   TImage01.Picture.Assign(jpg1);
   jpg1.Free;

   stream.free; //[Edit]hatte die Zeile doch glatt vergessen[/Edit]
end;

[ahachmann]

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

[dizzy]

Zitat von ahachmann:

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

* Schreib doch hier einfach mal  image1.Picture.Assign(jpg); So hat es "gekmihesg" auch geschrieben

[ahachmann]

Danke, das nächste mal lese ich besser.