Bilder aus Datenbank in Dateien

[needatip]

Hallo.
Wer kann mir helfen ?
Wie kann ich meine Bilder die in einer Paradox Datenbank gespeichert sind in einzelne Dateien in ein bestimmtes Verzeichnis speichern ?

Für eine rasche Hilfe wäre ich dankbar.

[chris]

hi,

über einen blobstream

z.b.

tblobstream.create(tblobfield(table1blobfield),bmRead) dann lädst du das bild in ein timage und kannst es abspeichern

[needatip]

Danke,
aber kannst Du mir bitte genau beschreiben wie ich das machen soll.
Bin noch nicht so fit mit Delphi.
Hab das mit der u.g. Routine gemacht. Ich möchte dazu aber keine visuellen Komponenten benutzen. Vielleicht kannst du mir die Routine ändern.
Danke.

Delphi-Quellcode:

procedure TSaveGraph.Button1Click(Sender: TObject);
var
  jp: TJPEGImage;
  i : integer;
begin
  While not FotoTable.EOF do
  begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      Assign(DBImage1.Picture.Bitmap);
      SaveToFile(c:\bilder\'+ IntToStr (FotoTableInvNummer.Value)+ '.jpg')
    end;
  finally
    jp.Free;
  end;
  FotoTable.Next;
  end;
 end;

[edit=MrSpock]Codetags eingefügt. Mfg, MrSpock[/edit]