ADO - BIn Daten Lesen/Schreiben

[Real-TTX]

Hallo Gemeinde,

Leider finde ich nichts über die Suche und/oder Google bezgl. ADO Connection und Bilder einfügen. Bzw Lese und in TImage laden.

Gibt es dafür ein Leitfaden ? Ein paar Begriffe oder ein Beispiel ?


Danke euch...

Gruß, Real-TTX

[DeddyH]

Schau mal hier: http://delphi.about.com/od/blob/BLOB...rogramming.htm

[Real-TTX]

So wie ich das verstehe sind es die BLOB's

Man kann irgendwelche Binär Daten als BLOB speichern, ist das richtig ?

Gruß, Real-TTX

PS: Danke dir, ich versuch mal mein Glück

[DeddyH]

Richtig, BLOB steht ja für Binary Large Objects

[Real-TTX]

Irgendwie bin ich echt zu doof

Gibt es da nochetwas zu beachten beim lesen der BLOB's ? Ich habe es 1zu1 aus dem Tut. genommen. Und funktioniert nicht. Keine Fehlermeldung / Exception sondern .. er machts einfach nicht... Habe dann fleißig meine Haltepunkte gesetzt... leider ohne Erfolg... :/

[Real-TTX]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AdoQuery.SQL.Text := 'SELECT * FROM Tabelle WHERE name = ''test''';
  AdoQuery.Active := true;
  AdoQuery.FieldByName('obj')as TBlobField).SaveToFile('d:\test.jpg');
end;

Die Datei wird zwar gespeichert, und ist befüllt... Aber ist irgendwie defekt? Kann das sein?

Gruß, Real-TTX

[Bernhard Geyer]

Zitat von Real-TTX:

Die Datei wird zwar gespeichert, und ist befüllt... Aber ist irgendwie defekt? Kann das sein?

Falls das JPEG mit Access-Mitteln gespeichert wurde ist das AS Designed. Du musst noch den OLE-Header wegschneiden den Access beim speichern ergänzt hat. Die Suche nach Access, OLE und Header sollte beispielcode liefern wie du das machst.

[Real-TTX]

Hmm... Und wie schneide ich das weg ? Indem ich den TBlobStream auf Startposition "0 + Header" setze?
Und dann einfach eine Copy mach auf einen zb Filestream ?

Gruß, Real-TTX

[Bernhard Geyer]

Zitat von Real-TTX:

Hmm... Und wie schneide ich das weg ? Indem ich den TBlobStream auf Startposition "0 + Header" setze?

Im Forum sollte es Beispielcode geben. Suchbegriffe habe ich angegeben!

[Real-TTX]

Hatte das schon verstanden. Aber mit den Begriffen finde ich nur mein Beitrag :/