webservice的客户端如何将一个图片文件保存到远程服务器的数据库中;(300分)

服务器程序是d2006开发的webservice 服务器,用ADO连接SQL2000数据库;
客户端保存.doc或.BMP等文件时就会出错
procedure TAddFileForm.Button3Click(Sender: TObject);
begin
with clientdataset1do
begin
close;
RemoteServer:=SoapConnection1;
ProviderName:='SQLProvider';
commandtext:='insert INTO [files] ([fID],[fileData]) VALUES( :fID,:fileData)';
try
params.FindParam('fid').Value:=DBTextEdit1.Text;
Params.ParamByName('fileData').LoadFromfile(trim(fileFullName),ftBlob);
execute;
except
on e:exceptiondo
application.MessageBox(pchar(e.Message),'错误',0);
end;
end;

var
ARes: Integer;
fn:string;
begin
//打开文档
ARes := ShellExecute(0, 'open', PChar(fn), nil, nil, SW_SHOW);
if ARes <= 32 then
application.MessageBox(pchar(SysErrorMessage(GetLastError)),'文档打开失败');
end;

通过一个已经注册的文件类型来打开应用程序
　　　ShellExecute(Handle, 'open', PChar('c:/test/readme.txt'), nil, nil, SW_SHOW);

路过学习 帮你顶