var I:Integer; res : String; ms : TIdMultiPartFormDataStream; h: TIdhttp; f:string; strStream: TStringStream; begin
CoInitialize(nil);
f:=FDk_dj.edtZlPut.text; if f='' then exit; try ms := TIdMultiPartFormDataStream.Create; h := Tidhttp.Create(nil); strStream := TStringStream.Create('',TEncoding.UTF8);
if res='upok' then Application.MessageBox('文档上传成功!','提示',MB_OK+MB_ICONASTERISK) else Application.MessageBox('文档上传失败!','错误',MB_OK+MB_ICONSTOP); finally ms.Free; end;
if LCase(file.FileExt) <>"gif" and file.FileExt<>"jpg" and file.FileExt<>"swf" then
----------------------------------------------
博客 - http://offeu.com 脚本模型 - http://webpascal.com 需要短信接口的请联系我,可发行业与营销内容。