type 部分
TMMThread =class(TThread)
tthreadid:integer;
tthreadtype:integer;
urlStr :String;
ttpostdata :TStrings;
ttresponses : TStringStream;
constructor Create(ttid:integer;typeflag:integer;url:String;postdate:TStrings;responses : TStringStream);
procedure Execute; override;
end;{ TMMThread }constructor TMMThread.create(ttid:integer;typeflag:integer;url:String;postdate:TStrings;responses : TStringStream);
begin
inherited Create(True);
FreeOnTerminate:=True;
Suspended:=false;
tthreadid:=ttid;
tthreadtype:=typeflag;
urlStr :=url;
ttpostdata :=postdate;
ttresponses := responses;end;
procedure TMMThread.Execute;
var
thIdHTTP: TIdHTTP;
begin
try
thIdHTTP := TIdHTTP.Create(nil);
if tthreadtype =1 then
begin
thIdHTTP.HandleRedirects := True;
thIdHTTP.Request.ContentType := 'application/x-www-form-urlencoded' ;
thIdHTTP.Post(urlStr,ttpostdata,ttresponses);
end
else if tthreadtype =2 then
begin
thIdHTTP.get(urlStr,ttresponses);
end;
finally
thIdHTTP.free;
end;
end;var
Responses : TStringStream ;
PostData: TStrings;
surl,tt :string;
addThread :TMMThread;调用部分
surl := 'http://'+serverurl+'/game/reg/login2.php';
addThread:=TMMThread.Create(1,1,surl,PostData, Responses);可是
thIdHTTP.Post(urlStr,ttpostdata,ttresponses);
执行异常!!
哪位高手帮忙看看啊
TMMThread =class(TThread)
tthreadid:integer;
tthreadtype:integer;
urlStr :String;
ttpostdata :TStrings;
ttresponses : TStringStream;
constructor Create(ttid:integer;typeflag:integer;url:String;postdate:TStrings;responses : TStringStream);
procedure Execute; override;
end;{ TMMThread }constructor TMMThread.create(ttid:integer;typeflag:integer;url:String;postdate:TStrings;responses : TStringStream);
begin
inherited Create(True);
FreeOnTerminate:=True;
Suspended:=false;
tthreadid:=ttid;
tthreadtype:=typeflag;
urlStr :=url;
ttpostdata :=postdate;
ttresponses := responses;end;
procedure TMMThread.Execute;
var
thIdHTTP: TIdHTTP;
begin
try
thIdHTTP := TIdHTTP.Create(nil);
if tthreadtype =1 then
begin
thIdHTTP.HandleRedirects := True;
thIdHTTP.Request.ContentType := 'application/x-www-form-urlencoded' ;
thIdHTTP.Post(urlStr,ttpostdata,ttresponses);
end
else if tthreadtype =2 then
begin
thIdHTTP.get(urlStr,ttresponses);
end;
finally
thIdHTTP.free;
end;
end;var
Responses : TStringStream ;
PostData: TStrings;
surl,tt :string;
addThread :TMMThread;调用部分
surl := 'http://'+serverurl+'/game/reg/login2.php';
addThread:=TMMThread.Create(1,1,surl,PostData, Responses);可是
thIdHTTP.Post(urlStr,ttpostdata,ttresponses);
执行异常!!
哪位高手帮忙看看啊
解决方案 »
- 跪求XML问题
- DELPHI2007 IDE最大化时不能覆盖整个屏幕
- 请教Adodataset事件使用方法
- 问一个简单的问题,怎样在delphi中使用access数据库?
- 如何将控件属性保存,并在创建表单时加载
- 接收邮件为什么主题中中文为乱码
- QReport如何打印分3列的报表?
- ★★注意!delphi和object pascal的书籍列表!谁说书少,多的吓死你!!
- 请大家帮个小问题,总说incorrect snytax near ','!
- update到底如何用(如以下例子update起何作用),最好有典型的例子
- 请教Indy9和Indy10的问题.一个很简单的TCP连接的程序.我用Indy9可以执行成功.换到Indy10以后,相同的写法,却老是连不上Server,变化有这么
- 报表:QuickRep如何实现象Excel那样可以选择性的选择某些列来打印?
PostData := TStringList.Create;
分配资源没?