record lesen/speichern in D8

[nicnac]

... und schickt man's in die Datenbank!!!

Delphi-Quellcode:

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
var fs : TFileStream;
    MyData: Array of Byte;
    n      : Integer;
begin

  fs := TFileStream.Create ('D:\usr\Bilder\0006a.jpg',fmOpenRead);
  SetLength(MyData, fs.Size );
  n :=fs.Size;
    fs.Read(MyData, 0, System.Convert.ToInt32(fs.Size));
  fs.Destroy;

  TextBox1.Text:= System.Convert.ToString(n);

  BdpCommand1.CommandText := 'insert into T_UPLOAD(FNAME, DATEN) values (:FNAME, :DATEN)';
  BdpCommand1.Parameters.Add('FNAME',bdpType.String).Value :='1';
  BdpCommand1.Parameters.Add('DATE',bdpType.Blob,bdpType.stBinary ,n).Value:=MyData;

  BdpConnection1.Open;
  BdpCommand1.ExecuteNonQuery;
  BdpConnection1.Close;
end;

[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]