Bild in MySQL (Blob) mit mysql.pas speichern

[Chewie]

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TFileStream;
  S: String;
begin
  Stream := TFileStream.Create('c:\p1.jpg', fmOpenRead or fmShareDenyNone);
  try
    SetLength(s, Stream.Size);
    Stream.Read(S, Stream.Size);
    Memo1.Text := S;
  finally
    Stream.Free;
  end;
end;

Dass du in dem Memo nicht viel siehts, liegt daran, dass irgendwann ein Nullzeichen auftaucht. Windows erkennt so das Ende von Strings und beendet die Ausgabe im Memo.