constructor regThread.Create;
var
i:integer;
begin
inherited Create(false); //false 创建后立即执行
FreeOnTerminate:=false; //false 不自动结束线程
FEnd:=false;i:=0;
fn:=format('%.4d.~tmp',[i]);
while FileExists(fn) do
begin
inc(i);
fn:=format('%.4d.~tmp',[i]);
end;
IdHTTPreg:=TIdHTTP.Create(nil);
Response := TStringStream.Create('');
bmp:=TBITMAP.Create;
st:=TStringList.Create;
fs:=TFileStream.Create(fn,fmCreate or fmShareDenyWrite);
end;
destructor regThread.Destroy;
begin
IdHTTPreg.Free ;
Response.Free ;
st.Free ;
bmp.Free ;
if fs<>nil then fs.Free;
deletefile(fn);
inherited Destroy;
end;
procedure regThread.Execute;
var
sPOST,t,sCookie,sVerify,sNick:string;
i:integer;
begin
idHttpreg.Post('http://网址/regpayinfo.asp',st,Response);//提交注册信息 第1页
end;
procedure TWebOffice.WebSave;
var
mBakFileName:WideString;
mSfs:TFileStream;
begin
if not (WebOfficeImpl.FFileDesource<>'') then
begin
ShowMessage('保存文件地址没有设置,文档无法保存,请确认!');
exit;
end;
mBakFileName:=TempDir() + WebOfficeImpl.FFileName ;
WebBrowser.OleObject.Document.Application.ActiveDocument.SaveAs(mBakFileName);
while WebBrowser.Busy do
Application.ProcessMessages;
FreeAndNil(WebBrowser);
mSfs:=TFileStream.Create(mBakFileName, fmOpenRead or fmShareDenyWrite);
//发送数据
self.IdHTTP.Post(WebOfficeImpl.FFileDesource, mSfs);
//返回消息提示
showmessage(self.IdHTTP.ResponseText );
FreeAndNil(mSfs);
DeleteFile(mBakFileName);
end;