Mittlerweile bin ich etwas weiter:
Code:
f := TFileStream.Create('image/test.jpeg', fmOpenReadWrite);
mysql_query(_myCon, 'select b from test;');
_myRes := mysql_store_result(_myCon);
Row := mysql_fetch_row(_myRes);
len := mysql_fetch_lengths(_myRes);
f.position = 0;
f.WriteBuffer(Row[0],len[0]);
Es wird auch eine Datei erzeugt, die auf dem Byte genau, der Größe des Originals entspricht. Aber die Datei ist beschädigt und das Bild wird nicht angezeigt.
Der Hex-Editor verrät, dass am Anfang und Ende der Datei einige Bits hinzugefügt wurden. Hmm, wo kommen die nur her?
Mike