请教各位高手,怎样把DLL文件存入SQL Server,本人折腾了几天了就是没有搞出来,如果有高手能搞定,一定狂加分。
解决方案 »
- 请教一下radiogroup的横排问题,注意了我知道设置columns属性!
- 如何实现远程多个数据传输?
- 求救:发现最难的数据库竟然是access。。。
- DLL中的函数为何不了总是返回“Invalid pointer operation”
- 如何将MessageDlg()对话框上的左上角的caption改成自己需要的信息呢?
- 如何在导出Excel文件时先请空Excel中的内容?急,请帮忙!
- 在没有安装delphi的电脑,运行一个三层结构的程序,需要哪些文件?
- 100分求问:adotable问题
- 如何判断一个文件是不是zip文件???
- 我用Random(10)取得一个随机数,如何将它完整的转为字符型呢?
- Delphi中访问Oracle时的问题
- 在BDE中建的连接删除不了
query1.close;
query1.SQL.text := 'select * from 你的表';
query1.Open;
query1.edit;
TBlobField(query1.fieldbyname('field1').loadfromfile('d:\aa.dll');
query1.post;保存
TBlobField(query1.fieldbyname('field1').Savetofile('d:\bb.dll');
最好这样,同时适应Oracle和MSSQL
增加:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO myimages(FileName,pic) VALUE(''Image1'',:pic)');
Query.ParamByName('pic').LoadFromFile('D:\Hasd.dll',ftBlob);
Query.ExecSQL; 修改:Query.Close;
Query.SQL.Clear;
Query.SQL.Add('UPDATE myimages SET pic=:pic WHERE filename=''dll2''');
Query.ParamByName('pic').LoadFromFile('D:\Hasd2.dll',ftBlob);
Query.ExecSQL;
如果问题得到解决,别忘了结贴呀!!!!!!
procedure TForm1.Button3Click(Sender: TObject);
var
Query : TAdoQuery;
begin
if OpenDialog.Execute then
begin
Query := TAdoQuery.Create(nil);
Query.Connection := Unit_DataSource.DataModule2.ADOConnection1;
try
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('Select * from T_BOLBFILE');
Query.Open;
Query.Insert;
Query.FieldByName('File_Name').AsString := EditFilePath.Text;
TBlobField(Query.FieldByName('BOLB_FILE')).LoadFromFile(OpenDialog.FileName);
Query.FieldByName('File_Version').AsString := EditOldVersion.Text;
Query.Post;
Query.close;
ShowMessage('Upload Successed!');
except
Raise;
Query.close;
end;
end;
Query.Free;
end;还有下载根本就报错,系统提示不能建立文件,
代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
Query : TAdoQuery;
begin Query := TAdoQuery.Create(nil);
Query.Connection := Unit_DataSource.DataModule2.ADOConnection1;
try
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('Select * from T_BOLBFILE');
Query.Open;
while not Query.Eof do
begin
showmessage(Query.FieldValues['File_Name']);
TBlobField(Query.FieldByName('BOLB_FILE')).SaveToFile(ExtractFilePath(Application.ExeName));
Query.Next;
end; // while
Query.close;
ShowMessage('DownLoad Successed!');
except
Raise;
Query.close;
end;
Query.Free;
end;
请各位高手解答,谢谢
TBlobField(Query.FieldByName('BOLB_FILE')).SaveToFile(ExtractFilePath(Application.ExeName) + 'aa.dll');