Bild ausgeben von einem lokalen Verzeichnis

[Jack23]

Hallo

Tut mir ja leid. Eine frage fertig schon kommt die nächste. Aber mann muss ja für ein anderes Thema ja ein neues aufmachen.

Also ich habe eine Adresse in Access gespeichert: z.B C:\Dokumente und Einstellungen\test.jpg

So nun möchte ich dieses Bild aber in Delphi eingefügt haben. Am besten so das ich es gut positionieren kann. Die Adresse wird später pro Daten ausgelesen. Geht das überhaupt das, dass Bild angezeigt wird?

[s-off]

Nutze ein TImage.

[Jack23]

Ich nutze das DBImage aber es wird immer nur der Feldname angezeigt.

[Pfoto]

Hi,

wenn du nur den Pfad in der DB speicherst, reicht es,
wenn du das normale TImage benutzt.
Dann einfach den Pfad aus der DB auslesen und
das Bild über TImage laden.

Wenn du das Bild selbst in der DB speicherst (also BLOB),
macht erst das TDBImage Sinn.

Gruß
Pfoto

[Jack23]

Wie bekomme ich denn das Bild in meine Access DB?

[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