ADO Blobfield Was mach ich falsch?

[WS1976]

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

[WS1976]

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

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Programmieren allgemein" nach "Datenbanken" verschoben.