Hallo zusammen,

(1)Wie kann ich ein Jpeg von einem Webserver in den Speicher laden(Sodass keine Datei erzeugt werden muss), kann man das einfach über die indykomponenten(idhttp) in eine TStringList laden ?

(2)Gibt es in Delphi soetwas wie ein "Tjpeg" objekt, mit dem man diesen Stream auf einem Canvas zeichnen könnte. Wie würde ich den Stream auf den Bildschirm zeichnen ?

Hoffe ihr könnt mir helfen.

~stift

Hallo stiftII,

zu deiner ersten Frage:

TidHttp.get gibt es in einer überladenen Version welche einen Stream zurückgibt.
Diesen kannst Du nutzen.

Zur zweiten Frage:
Du kannst das jpg in ein TImage laden wenn Du die jpeg Unit in den uses eingebunden hast.

Grüße
Klaus

Vielen Dank, Klaus01.

Es klappt aber noch nicht ganz, beim laden des Streams gibt es eine Zugriffsverletzung.

Muss ich den Stream irgendwie initialisieren ? Ist TMemoryStream für Bilder geeignet ?

Ausschnitt aus meinem Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

var
mjpg : tidhttp;
mstream : Tmemorystream;
mimage : TImage;

begin
  mjpg := tidhttp.Create(form1);
  mstream := Tmemorystream.Create;
  mimage := Timage.Create(form1);


  mjpg.Get('www.internetse.de/bild.jpg',mstream);

  mimage.Picture.Graphic.LoadFromStream(mstream); // access violation hier

  form1.Canvas.Draw(0,0,mimage.Picture.Graphic);


....

~stift

Hallo stift,

versuche es mal damit die Leseposition im Stream wieder auf den Anfang zu setzen.

zusammenfalten · markieren

Delphi-Quellcode:

var
mjpg : tidhttp;
mstream : Tmemorystream;
mimage : TImage;

begin
  mjpg := tidhttp.Create(form1);
  mstream := Tmemorystream.Create;
  mimage := Timage.Create(form1);


  mjpg.Get('www.internetse.de/bild.jpg',mstream);
  mstream.seek(0,soFromBeginning);
  mimage.Picture.Graphic.LoadFromStream(mstream); // access violation hier

  form1.Canvas.Draw(0,0,mimage.Picture.Graphic);


....

Grüße
Klaus

Hallo nochmal.

Hat leider nicht geklappt, immer noch "access violation".

~stift

Moin moin,

da du sowieso direkt auf die Form zeichnest, nehm doch ein TJPEGImage...

zusammenfalten · markieren

Delphi-Quellcode:

uses jpeg;
//..
var
   mjpg : tidhttp;
   mstream : Tmemorystream;
   mimage : TJpegImage;
begin
   mjpg := tidhttp.Create(form1);
   mstream := Tmemorystream.Create;
   mimage := TJpegImage.Create;
   try
      mjpg.Get('www.internetse.de/bild.jpg',mstream);
      mstream.Position := 0;
      mimage.LoadFromStream(mstream);
      form1.Canvas.Draw(0,0,mimage);
   finally
      mimage.Free;
      mstream.Free;
      mjpg.Free;
   end;
end

Sowas gibts auch ? .
Klasse, funktioniert einwandfrei. Danke!

~stift