Hallo,
hab ein Stück Code geschrieben um Icons in eine Acces 2003 Datenbank zu schreiben. (ADOconnection, ADOtable. mytable ist ADOtable)
Sieht alles OK aus kommt aber nie in
Access an, bzw wenn ich auslesen will, wird immer das Ergebnis 0 Bytes zurückgegeben.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
blobF : TBlobField;
bs : TStream;
f:file of Timg;
numread,numwritten:integer;
data:array[1..1000] of char;
begin
assignfile(f,'1315.ico');
reset(f);
BlockRead(f, data, filesize(f), NumRead);
closefile(f);
mytable.Active:=true;
myTable.Insert;
myTable.FieldByName('name').AsString:='1315_a.ico';
blobF := myTable.FieldByName('Picture') as TBlobField;
bs := myTable.CreateBlobStream(blobF, bmWrite);
numwritten:=bs.Write(data,NumRead);
myTable.Post;
end;
kann mir irgendjemand auf die Sprünge helfen?
Danke im Vorraus