Hallo Gemeinde,

ich möchte in ein Objekt vom Typ TGraphic eine JPG-Datei laden. Funktioniert auch soweit.
Versuche ich jedoch die Datei von einem Webserver zu laden, schlägt der Aufruf fehl:

zusammenfalten · markieren

Delphi-Quellcode:

var pfad:string;
    jpg:TGraphic;
 
pfad:='http://192.168.0.1/bilder/bild.jpg';

jpg:=TJPEGImage.create;
jpg.LoadFromFile(pfad); //->Pfad='C:\.....\Http:\192.168.0.1\Bilder\bild.jpg
.
.
.
.
freeandnil(jpg);

Wie könnte man das umgehen? Ziel ist es, ein Bild in einem Grid (NextGrid) anzuzeigen (ObjectReference).

MFG
Steffen

die datei herunterladen und dann in jpg laden ?

zusammenfalten · markieren

Delphi-Quellcode:

uses
  URLMon;

[...]

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

mfg smallsmoker

Ja, die LoadFromFile Funktion kann nicht per HTTP downloaden, sondern nur lokale Dateien oder was per UNC-Pfad aus dem Netzwerk so zu erreichen ist.

Vom Ablauf her mußt Du die Datei runterladen, dann hast Du sie als Stream und den mußt Du Deinem TJPEGimage zuweisen.

zusammenfalten · markieren

Delphi-Quellcode:

var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;

  try
    myClient.Get('http://meinbild.de/bild.jpg', myMemoryStream);
    myMemoryStream.Position := 0;
    myJPEG.LoadFromStream(myMemoryStream);
  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;

Code ist ungetestet!

Vielen Dank für die Tips..!!
Auf das "Runterladen" hätte ich auch kommen sollen ... .. naja, manchmal steht man auf dem Schlauch!
Habe mich an der ersten Version orientiert, funktioniert sehr gut... Trotzdem Danke an euch BEIDE!!

MFG
Steffen

Hey!

Sorry, dass ich in diesem realtiv alten Thread noch einmal poste, aber mein Problem passt dort einfach perfekt hin.

Ich habe eine JPEG-Datei runtergeladen und möchte die jetzt aber auch bearbeiten können.
Soweit ich weiß geht das nur mit bmp's, also hab ich folgendes versucht:

zusammenfalten · markieren

Delphi-Quellcode:

var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
  var bitm : TBitmap; //<----
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;
  try
    myClient.Get('http://server/img.jpg', myMemoryStream);
    myMemoryStream.Position := 0;
    myJPEG.LoadFromStream(myMemoryStream);
    Image1.Picture.Graphic := myJPEG; //Das funktionier hervorragend
    bitm := TBitmap.Create;
    bmp_img.Assign(myJPEG); //Hier liegt das Problem!!
    Image1.Picture.Bitmap := bmp_img;
  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;

Als Parameter fordert die .Assign() Funktion einen TPersistent, kann es sein, das dort der Fehler liegt, weil mein JPEG nicht gespeichert ist?
Generell habe ich mit der Funktion und JPEG-Dateien nie ein Problem gehabt, aber die kamen auch nie aus einem Stream...
Hat jemand eine Idee, wieso da folgende Fehlermeldung kommt??

Zitat:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00487C29 in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

Vielen Dank noch an kachel81 für den Quelltext!

Hi,

du musst die Bitmap noch vorher erstellen. Also TBitmap.Create.

Mfg
FAlter

Ja, ich hab mich oben vertippt, die Bitmap war schon erstellt, nur das Problem war, dass auch schon per .LoadFromFile() eine JPEG-Datei eingebunden war, was das Problem zu sein schein.

Ich habe das ganze mit einer "leeren" Bitmap versucht und voilà, es funktiuoniert

Trotzdem Danke für deinen Beitrag FAlter!

Problem gelöst