Собственно нужно по событию OnWork компоненты idHTTP1 рвать соединение.
Сделал вот так, но не работает, почему не могу понять:
| Код |
unit Unit2;
interface
uses
Classes, SysUtils,IdHTTP, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,IdCookieManager;
type
TPMSender = class(TThread)
idHTTP1:TidHTTP;
procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
private
{ Private declarations }
FForumUrl:String;
FUserList:String;
FPMmessage:String;
FForumLogin:string;
FForumPassword:string;
FMsgTitle:string;
Rezyltat:String;
protected
procedure Execute; override;
procedure ShowResult;
procedure OnTime;
procedure OffTime;
procedure IncUser;
procedure ShowResult2;
public
property ForumUrl: string write FForumUrl;
property UserList: string write FUserList;
property PMmessage: string write FPMmessage;
property ForumLogin: string write FForumLogin;
property ForumPassword: string write FForumPassword;
property MsgTitle: string write FMsgTitle;
end;
implementation
uses Unit1;
{$J+}
const
DataHtmlRead:Boolean=true;
var
auth_key,post_key:String;
procedure TPMSender.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
if DataHtmlRead= false then
if AWorkMode=wmRead then idHTTP1.DisconnectSocket;
end;
procedure TPMSender.Execute;
var
{...}
begin
{...}
end;
|
Тов. Matematik сказал что нужно установить событие, но как и где что нужно дописать я не понимаю. Подскажите плиз! |
)
