Hallo Problem gelöst,
zum schreiben benutze ich diese procedure:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
blobF : TBlobField;
begin
mytable.Active:=true;
myTable.Insert;
myTable.FieldByName('name').AsString:='1315_a.ico';
blobF := myTable.FieldByName('Picture') as TBlobField;
blobf.LoadFromFile('1315.ico');
myTable.Post;
end;
zum lesen benutze ich diese procedure:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
blobF : TBlobField;
begin
mytable.Active:=true;
myTable.first;
fname:=myTable.FieldByName('name').AsString;
blobF := mytable.FieldByName('Picture') as TBlobField;
blobf.SaveToFile(fname);
end;
Das ist naturlich nur ein Beispiel mit festem Dateinamen für das Icon
und es wird auch nur der erste Record ausgelesen.
Das Icon wird von der Platte geholt und unter anderem Dateinamen, auf die Platte gespeichert.
Ich hab mich leider von einem Beitrag (Eines Typs mit fundiertem Halbwissen in die Irre führen lasse.)
Ich werde mich demnächst an einem
DB Tutorial (für Dummies wie mich) versuchen.
Viele Grüsse
Vielen Dank