F1Book的WriteToBlob如何使用?(急用!)(199分)

  • 主题发起人 主题发起人 hsw
  • 开始时间 开始时间
H

hsw

Unregistered / Unconfirmed
GUEST, unregistred user!
F1Book的WriteToBlob的使用:
第二个参数 INTEGER型,但不管如何,编译都不通过!请各位大虾
帮助,最好有例子!谢谢
 
斑竹如果知道就回答
只要,可以保存到数据库也可以.
 
HELP!HELP!HELP
大家帮帮忙………………
 
I want to know.
 
我已做过试验,用0,1都可以啊!
我用的正版F1BOOK6,您该不会是用的是盗版的问题吧!
 
你可以用
F1Book1.Write (pPathName, nSaveType)
写到一个文件
然后把这个文件写到数据库中
给你个例子:
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName = '' then Exit;
FileName := OpenDialog1.FileName;
Mem := TMemoryStream.Create;
Mem.LoadFromFile(FileName);
Mem.Seek(0,soFromBeginning);
Query1.Close;
Query1.DatabaseName := 'D:/BLOB';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUES(:NAME,:FILENAMES)');
Query1.ParamByName('Name').AsString := FileName;
Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob);
Query1.ExecSQL;
Mem.Free;
end;
 
多人接受答案了。
 
后退
顶部