gesucht gegenteil von catchimage

[mar]

Hi, wie kommt man an das PBImage im Speicher ran?

Catchimage Bitmap->PBBild
???Image PBBild->Bitmap

mar

[Ja!]

Hi,

wie meinst Du das genau?

CatchImage lädt ein Bild aus der übergebenen Speicheradresse.

Und Du willst ein Befehl wie WriteImage o.s.ä. womit
man ein Bild an die angegebene Speicheradresse schreibt..?

[ts-soft]

Code: Alles auswählen

CatchImage(0, ?Logo)

ImageID(0) = Handle
?Logo = Speicheradresse

Wenn Du also CatchImage machen kannst, haste die Adresse doch

[mar]

wenn das mit der id geht, dann war das ja einfacher als gedacht.
Danke ... werde ich heute Abend testen.

mar

[Kekskiller]

Wenn du damit die Funktion des Extrahierens aus der Exe umkehren, müssen wir dich wohl enttäuschen. CatchImage wurde dafür soweit ich weiß gemacht, dass man in Exe eingebundene Images extrahieren kann. Beim Compilieren wird das Image also vorgefertigt in die Exe gepackt -> schneller Zugriff, wenn ich mich nicht irre. Andersherum gehts nicht, es sei denn du hast Bock, 5 Instanzen zu starten, die sich gegenseitig und unter größtem Aufwand hardkodieren ...

[mar]

Na für eigene Bildformate oder SQL ...
ist es nicht schlecht die Bilder von PB speichern
zu können ohne sie vorher als BMP (wegen dem
einfach auszulesenden Format)
auf Platte zu speichern und danach wieder einladen
zu müssen.

Eigentlich suche ich nur ein saveImage für BMP-Bilder
, dass die Bilder im Speicher ablegt. Am besten wär
32Bit RBG Format. Die Funktion ist ja in PB eh schon drin.
Viel Aufwand wär das nicht.

mar

[Kekskiller]

Wie ts-soft schon sagte, wenn das Bild in Purebasic geladen wird, befindet es sich im Speicher... Du müsstest nur jedes mal die EXE offen halten, da PB nach jedem Beenden automatisch alles geladene und reservierte (z.b. Memory) sofort wieder löscht.

[ts-soft]

Bevor Keksi für noch mehr Verwirrung sorgt

Code: Alles auswählen

DataSection
  Image:
  IncludeBinary "Bild.bmp"
  ImageEnd:
EndDataSection

;Catch Version 1
ID = CatchImage(#PB_Any, ?Image)
Handle = ImageID(ID)

;Catch Version 2
Handle = CatchImage(0, ?Image)
ID = 0

;Save Version 1
SaveImage(ID, "Bild.bmp")

;Save Version 2 (blödsinnig, aber geht
File = CreateFile(#PB_Any, "Bild.bmp")
  WriteData(File, ?Image, ?ImageEnd - ?Image)
  CloseFile(File)
EndIf

Es sind fast alle Varianten bei, und ich hoffe man versteht es jetzt,
ansonsten Hife lesen

[mar]

Also ist es nicht möglich ein PB-Bild mit PB-Befehlen in den Speicher zu kopieren.

Dann manipulier ich die Bilder eben nicht mit PB Befehlen.

Es gibt noch so ein paar betriebssytemabhängige Varianten.
Mal sehen, wie das da mit der Auflösung ist.

Danke
mar

[ts-soft]

Also ist es nicht möglich ein PB-Bild mit PB-Befehlen in den Speicher zu kopieren.

Jetzt verstehe ich garnichts mehr, es steht doch im Speicher, ab Speicheradress ?Image

Dann manipulier ich die Bilder eben nicht mit PB Befehlen.

Klar, sieht nicht so aus als wenn Du dazu in der Lage wärst