JPG-Bilddaten vom RAM aus laden

[Jonathan]

Hallo,

gibt es in XProfan (API wäre auch noch in Ordnung, zumindest mit einem funktionierenden Quellcode-Beispiel) eine Möglichkeit, eine Bilddatei vom Arbeitsspeicher aus zu laden? Also, sagen wir mal, ich lade den Inhalt einer JPG-Datei in einen Bereich/String/Array/... und möchte nun mit dieser geladenen Datei wie mit Create("hPic" ein Bitmap-Objekt erzeugen und das Handle darauf bekommen. Den Umweg über die Festplatte will ich nicht gehen. In Wirklichkeit lade ich den Inhalt natürlich nicht aus einer Datei, wäre ja schon dämlich .


Gruß
Jonathan

[_Joerg_]

Hallo Jonathan,
Reicht Dir das nicht aus?

@Create("hPic",N,S)
...
"&MEMBMP" - Es wird eine Bitmapkopie mit der aktuellen mit MCLS oder MLOADBMP erzeugten Speicherbitmap erstellt.

"&OGLBMP" - Es wird eine Bitmapkopie des aktuellen OpenGL-Bildschirms erstellt.

"&SCRBMP" - Es wird eine Bitmapkopie des aktuellen Hauptfensters erstellt.

"&DSKBMP" - Es wird eine Bitmapkopie des aktuellen Desktops erstellt.

"&CLPBMP" - Es wird eine Bitmapkopie der aktuellen Zwischenablage erstellt, wenn diese eine Bitmap enthält.

Es gibt einen Code von Andreas, wenn du sowas suchst.

Proc CatchImage
  Parameters MemPointer& ,Size&
  Struct GdiplusStartupInput = GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
  Var GDIP& = ImportDll("Gdiplus.dll","")
  Var OLE& = ImportDll("Ole32.dll","")
  Var Kernel& = ImportDll("Kernel32.dll","")
  Declare gdpsi#,gdiplusToken&,ImageObject&,GraphicObject&,pStream&,RetVal&
  'GDIPlus starten
  Dim gdpsi#,GdiplusStartupInput
  gdpsi#.GdiplusVersion& = 1
  gdpsi#.DebugEventCallback& = 0
  gdpsi#.SuppressBackgroundThread& = 0
  gdpsi#.SuppressExternalCodecs& = 0
  GdiplusStartup(ADDR(gdiplusToken&),gdpsi#,0)
  Dispose gdpsi#
  'Speicher bereitstellen
  Var m_hBuffer& = GlobalAlloc(2,Size&)
  Var pBuffer& = GlobalLock(m_hBuffer&)
  RtlMoveMemory(pBuffer&,MemPointer&,Size&)
  GlobalUnlock(m_hBuffer&)
  'Stream erzeugen
  CreateStreamOnHGlobal(m_hBuffer&,1,Addr(pStream&))
  GdipCreateBitmapFromStream(pStream&,Addr(ImageObject&))
  'hBitmap erzeugen
  GdipCreateHBITMAPFromBitmap(ImageObject&,Addr(RetVal&),0)
  'aufräumen
  Var Command& = Long(pStream&,0)
  call(Long(Command&,8),pStream&)'IStream.Release
  GlobalFree(m_hBuffer&)
  GdipDisposeImage(ImageObject&)
  GdipDeleteGraphics(GraphicObject&)
  GdiplusShutdown(gdiplusToken&)
  FreeDll GDIP&
  FreeDll OLE&
  FreeDll Kernel&
  Return RetVal&
EndProc


' cls
' declare mem#,size&
' var bild$ = Loadfile$("Bild laden","*.*")
' case bild$ = "":end
' size& = filesize(bild$)
' dim mem#,size&
' set("Filemode",0)
' Blockread(bild$,mem#,0,size&)
' set("filemode",2)
' var hBild& = CatchImage(mem#,sizeof(mem#))
' Dispose mem#

[Jonathan]

@_Joerg_: Nein, denn ich habe den Inhalt einer JPG-Datei (also wirklich komplett mit Header und allem, wie es auch auf der Festplatte stehen würde) im RAM. Nicht als Bitmap-Objekt / MemoryBitmap. Deshalb suche ich auch etwas, was aus JPG-Daten im RAM ein Bitmap-Objekt erstellt.


Gruß
Jonathan

[Andreas Miethe]

Zitat von Jonathan

Nein, denn ich habe den Inhalt einer JPG-Datei (also wirklich komplett mit Header und allem, wie es auch auf der Festplatte stehen würde) im RAM. Nicht als Bitmap-Objekt / MemoryBitmap. Deshalb suche ich auch etwas, was aus JPG-Daten im RAM ein Bitmap-Objekt erstellt.

Genau das macht der Code oben doch.
Aus einem Speicherbereich wird ein Bitmap erstellt.

[ts-soft]

Hier noch eine Version nur für BMP, dafür wird aber auch kein GDIPlus benötigt, läuft also ab Win95

Proc CatchBmp
  Parameters MemPointer&
  Declare hDC&, BITMAPFILEHEADER#, BMPInfo&, init&, hImage&
  Var cv$ = Get("CallConv")
  Set("CallConv", "STDCALL")
  hDC& = External("user32.dll", "GetDC", External("user32.dll", "GetDesktopWindow"))
  Dim BITMAPFILEHEADER#, 14
  BITMAPFILEHEADER# = MemPointer&
  BMPInfo& = MemPointer& + 14
  init& = MemPointer& + Long(BITMAPFILEHEADER#, 10)
  hImage& = External("gdi32.dll", "CreateDIBitmap", hDC&, BMPInfo&, 4, init&, BMPInfo&, 0)
  External("user32.dll", "ReleaseDC", External("user32.dll", "GetDesktopWindow"), hDC&)
  Dispose BITMAPFILEHEADER#
  Set("CallConv", cv$)
  Return hImage&
EndProc

[Jonathan]

Zitat von Andreas Miethe

Genau das macht der Code oben doch.
Aus einem Speicherbereich wird ein Bitmap erstellt.

Äh, da haben sich unsere Posts wohl überschnitten (bzw. Unregistriert's Post wurde erst später freigeschaltet)...

@Unregistriert & ts-soft: Danke!


Gruß
Jonathan

[Jonathan]

Öhm, kann mir mal jemand einen funktionierenden Beispielcode geben...? Ich krieg's nicht zum laufen

Das hier geht nicht:

'Ich lade einfach eine JPG-Datei in den String
Bitmap& = @CatchImage(Addr(String$), Len(String$) - 1)

Mit einem Bereich gehts auch nicht. Hilfe


Gruß
Jonathan

[Jac de Lad]

Als Parameter musst du den Bereich nehmen, wo das Bild drin steckt und die Größe des Bereichs. Also keine Strings!

[H.Brill]

Geht doch einwandfrei.
Einen String darfst du auch nicht nehmen.
Lade eine .jpg in Frank Abbings XProfan_Datengenerator.
Gib darin einen Bereich# an und kopiere das Generierte.
Du bekommst sogar die Größe (Dim Bereich# ....) mitgeliefert.
Dann brauchst du nur noch anzeigen :

Declare Pointer&, img&
Pointer& = Bereich#
img& = CatchImage(Pointer&, 4728) '-> Größe aus Franks Datengenerator
DrawPic img&, 5, 10, 0
Waitkey
Dispose Bereich#

[Jonathan]

AARGH! Jetzt weiß ich, warum das nicht geht... Ich lade die Datei nämlich mit @DownloadFile() herunter und nehme die Daten aus $download. Blöderweise ist das ein String. Und mein JPG enthält Nullbytes. Mist.
Also doch der Umweg über die Festplatte... (Oder weiß jemand, wie ich sonst an die Daten von @DownloadFile() rankomme?)

@RGH: Könntest Du nicht sowas wie "#download" in XProfan einbauen? Büddebüdde


Gruß
Jonathan

[ts-soft]

Zitat von Jonathan

@RGH: Könntest Du nicht sowas wie "#download" in XProfan einbauen? Büddebüdde

Bis das soweit ist, nimm dies:

Var internetdll& = ImportDLL("Wininet.dll", "")

Proc DownLoadToMem
  Parameters Url$, Mem#, Size&
  Declare Bytes&
  Var agent$ = "Mozilla/4.0 (compatible; ST)"
  Var hInet& = InternetOpenA(agent$, 0, 0, 0, 0)
  Var hData& = InternetOpenUrlA(hInet&, Url$, "", 0, $8000000, 0)
  Case hData& : InternetReadFile(hData&, Mem#, Size&, Addr(Bytes&))
  InternetCloseHandle(hInet&)
  InternetCloseHandle(hData&)
  Return Bytes&
EndProc

Keine großartigen Überprüfungen drinnen, aber das kannste selber ja noch
verbessern. Das Ergebnis der Procedure ist die tatsächliche Grösse des
Bildes / der Datei. Vorher also den Buffer (Mem#) nicht zu klein wählen.

[Jonathan]

Juhuu! Danke!!! Genau sowas hab ich gebraucht!


Gruß
Jonathan

[Jonathan]

Öhm... Deine Downloadfunktion geht nicht ganz... Du hast nämlich den String direkt übergeben und nicht als Adresse - da konvertiert XProfan dann mittels Val() den String in eine Zahl -> es kommt Mist raus. Ich hab's mal korrigiert

Var internetdll& = ImportDLL("Wininet.dll", "")

Proc DownLoadToMem
  Parameters Url$, Mem#, Size&
  Declare Bytes&
  Var agent$ = "Mozilla/4.0 (compatible; ST)"
  Var hInet& = InternetOpenA(Addr(agent$), 0, 0, 0, 0)
  Var hData& = InternetOpenUrlA(hInet&, Addr(Url$), "", 0, $8000000, 0)
  Case hData& : InternetReadFile(hData&, Mem#, Size&, Addr(Bytes&))
  InternetCloseHandle(hInet&)
  InternetCloseHandle(hData&)
  Return Bytes&
EndProc

Trotzdem danke für die Funktion!


Gruß
Jonathan

[ts-soft]

Woher soll ich denn Wissen welche XProfan Version Du nutzt, X2 kann es auch
ohne Addr