Bild ausgeben von einem lokalen Verzeichnis

[Pfoto]

Ich habe es bei mir für NexusDB implementiert,
hier ein Beispielcode:

Delphi-Quellcode:

var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    ms.LoadFromFile('Imagefile.jpg');
    with Query1 do
    begin
      with SQL do
      begin
        Clear;
        Add('INSERT INTO (ImageField)');
        Add('VALUES (:Image )');
      end;
      Query1.ParamByName('Image').SetBlobData(ms.Memory, ms.Size);
      // oder alternativ
      // Query1.ParamByName('Image').LoadFromStream(ms, ftGraphic);
      ExecSQL;
    end;
  finally
    ms.Free;
  end;

Hoffe, es hilft dir.


Ich habe auf www.swissdelphicenter.ch noch folgendes gefunden:
http://www.swissdelphicenter.ch/de/showcode.php?id=1748



Gruß
Pfoto