delphi中怎么样把一个客户端的文件不用FTP上传到INTERNET上有WEB服务器的一个目录下(200分)

  • 主题发起人 主题发起人 passat
  • 开始时间 开始时间
P

passat

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中怎么样把一个客户端的文件不用FTP上传到INTERNET上有WEB服务器的一个目录下如c:/aa
还有NMHTTP控件中的nmhttp.post(url,'string')中的STRING应为什么,我试了用字符,文件名,HTML语言都不行,请各位DX帮忙。
 
procedure TForm_Main.B_imageClick(Sender: TObject);
var
locafile,remotefile:string;
begin
table1.DisableConstraints;
if OpenPicture.Execute and nmftp1.Connected then
begin
locafile:=OpenPicture.FileName;
try
table1.Edit;
table1.FieldValues['images']:=ExtractFileName(locafile);
table1.Post;
except end;
if FileExists(str+'/images/'+table1.FieldByName('images').value) then
Image1.Picture.LoadFromFile(str+'/images/'+table1.FieldByName('images').value)
else
image1.Picture.loadfromfile(str+'/images/blank.jpg');
table1.EnableConstraints;

try
remotefile:=ExtractFileName(openpicture.FileName);
NMFTP1.Upload(locafile,remotefile);
except
On E:Exception do
writeln(E.message);
end;

end
else
showmessage('没有选定图片文件!');
end;
 
提问者写明用http post,回答者却贴出ftp
 
如果你的网站有个上传文件的网页,则直接用post搞定
 
后退
顶部