Hallo nochmal,
in dem folgenden Abschnitt muß noch irgendwo ein Fehler sein, denn MySQLCC und PHP sagen mir beide, dass das gespeicherte Bild fehlerhaft ist:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TFileStream;
S:
String;
query:
String;
begin
Stream := TFileStream.Create(ExtractFilePath(ParamStr(0)) + '
test.jpg', fmOpenRead
or fmShareDenyNone);
try
SetLength(S, Stream.Size);
Stream.
Read(S, Stream.Size);
finally
Stream.Free;
end;
query := '
INSERT INTO Bild (Name, Bild) VALUES (' + QuotedStr('
testbild') + '
, ' + QuotedStr(S) + '
)';
mysql_real_query(myCon, PChar(
query), Length(
query));
end;
Das kann ja eigentlich kein großer Fehler mehr sein. Woran könnte es denn vielleicht noch liegen?
Vielen Dank,
Morfio ...
PS: Das Bild "test.jpg" ist nicht fehlerhaft, IrfanView kann es ohne Probleme vollständig anzeigen.