JPEG Datei in NonVCL Prog laden

[OLLI_T]

Hallo und guten Morgen!

Ich suche für meine NonVCL Programme eine Möglichkeit, JPEG Bilder aus einer Datei laden zu können. Lässt sich das eventuell irgendwie mit Windows Bordmitteln bewerkstelligen? COM oder ne DLL, die ich anzapfen kann? Eine Delphi-Unit, die keine VCL Units nutzt, wäre auch genehm.
Brauche nix weiter als das Handle auf ne Bitmap. Speichern ist nicht nötig.

Vielen Dank schon mal und Gruss an alle

OLLI

[Luckie]

Kuckst du hier: http://www.assarbad.org/stuff/ -> screenshotclass (untere Drittel). Zwar kein JPG aber dafür PNG, eventuell hilft das ja schon weiter.

[OLLI_T]

Danke Luckie!


Das Material von Assa hab ich schon gesichtet. Leider kann ich damit nur PNG speichern aber nicht laden.

Tschau

[Luckie]

Ich habe was. Ich habe was. *juhu*
http://www.c-plusplus.de/forum/viewtopic.php?t=39384

[OLLI_T]

Hey Luckie!

Das sieht toll und recht einfach aus, was Du da gesichtet hast. Ich geh jetzt in die Wanne und dann versuch ich den Spass mal nach Delphi zu übersetzen. Oder sitzt Du etwa schon dran?

Also vielen Dank und ich wünsch Dir ein extra schönes WE

Und ... keep on pumping!

OLLI

[OLLI_T]

Hilfääääääää!

Jetzt hab ich den Code soweit fertig und es scheitert an ner Kleinigkeit. Hab Delphi 5 und bei mir ist die Interface-ID IID_IPicture noch nicht deklariert. Kann bitte bitte jemand in der Unit Active-X nachschauen und mir die Zeile posten! Das wäre total nett.

Vielen dank schon mal

OLLI

[choose]

Hallo OLLI,

ich hoffe, dass ist, was du benötigst:
IID_IPicture: TGUID = '{000208A6-0001-0000-C000-000000000046}';

[Luckie]

Zitat von OLLI_T:

Das sieht toll und recht einfach aus, was Du da gesichtet hast. Ich geh jetzt in die Wanne und dann versuch ich den Spass mal nach Delphi zu übersetzen. Oder sitzt Du etwa schon dran?

nein, ich übersetzte sowas immer erst wenn ich es brauche. Aber ich hoffe du machst das OpenSource?

Zitat:

Also vielen Dank und ich wünsch Dir ein extra schönes WE

Ich dir auch, war aber nicht nötig.

[OLLI_T]

HY Choose!

Mit Deinem Wert klappt es nicht. Habe im Netz der Netz diese Lottozahlen gefunden:

  IID_IPicture : TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}'; Und was soll ich sagen ... ICH KANN JPEG´s LADEN!!!! Läuft wie geschmiert. Hier die offenen Delphi-Sossen:

Delphi-Quellcode:

Var
  pPicture:IPicture;

Function LoadPicture(AFile: String):Boolean;
Var
  hFile,hMem:THandle;
  dwFileSize,dwBytesRead:DWord;
  pData:Pointer;
  bRead:Boolean;
  hRes:HResult;
  pStream:IStream;
Begin
  // open file
  Result:=FALSE;

  hFile:=CreateFile(PChar(AFile),GENERIC_READ,0,NIL,OPEN_EXISTING,0,0);
  if (hFile = INVALID_HANDLE_VALUE) Then Exit;

  // get file size
  dwFileSize:=GetFileSize(hFile,NIL);
  If (dwFileSize = -1) Then Exit;

  // get memory objekt
  hMem:=GlobalAlloc(GMEM_MOVEABLE Or GMEM_NODISCARD, dwFileSize);
  If(hMem = 0) Then Exit;

  pData := GlobalLock(hMem);
  If (pData = NIL) Then Exit;

  bRead:=ReadFile(hFile, pData^ , dwFileSize, dwBytesRead, NIL);
  CloseHandle(hFile);
  GlobalUnlock(hMem);
  If Not(bRead) Then Exit;

  // create IStream from global memory
  pStream:=NIL;
  hRes:=CreateStreamOnHGlobal(hMem, TRUE, pStream);

  If FAILED(hRes) Or (pStream = NIL) Then exit;

  // Create IPicture from image file
  hRes := OleLoadPicture(pStream, dwFileSize, FALSE, IID_IPicture, pPicture);
  If (hRes=S_OK) And (pPicture <> NIL) Then Result:=TRUE;

  pStream := NIL;
End;

Gute N8 und noch mal DANKE an Luckie

OLLI

[Luckie]

Schön. Und wo wird es hingeladen? Wie kann man es jetzt darstellen? Schön wäre es, wenn ich ein HBITMAP rausbekäme, welches ich dann in ein Static oder so anzeigen könnte.

Und die vielen Exits gefallen mir nicht. Ich mache da über das WE mal etwas.