用delphi 和vb6.0 怎样读取和写入sqlserver的二进制字段

Question

用delphi  和vb6.0  怎样把文本文件内容写入sqlserver的二进制字段
并怎样读取还原成文本文件

Answer 1

你到底是用delphi还是vb呀,先转后存,转的函数找找以前的帖子

Answer 2

delphi的.我回过多次了:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='insert into ttt values(:id,:dat)';
ADOQuery1.Parameters[0].Value:=1;
ADOQuery1.Parameters[1].LoadFromFile('d:\temp\aaa.txt',ftBlob);
ADOQuery1.ExecSQL;
end;procedure TForm1.Button2Click(Sender: TObject);
 VAR
  MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select id,dat from ttt where id=1';
ADOQuery1.Open;
Edit1.Text:=IntToStr(ADOQuery1.FieldValues['id']);
(ADOQuery1.FieldByname('dat') AS TBlobField).SaveToStream(ms);
ms.SaveToFile('d:\temp\aaa1.txt');
end;
----------------------------
VC的,不用