Export image in TXT file

[wcleyton]

How do I export BLOB fields with an image using TXT file?

[serbod]

Code: [Select]

var
  sl: TStringList;
begin
  sl:=TStringList.Create();
  try
    sl.Text:=Query.Fields['blob_field_name'].AsString;
    sl.SaveToFile(FileName);
  finally
    FreeAndNil(sl);
  end;