You've already forked lazarus-ccr
fd170582cf
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@217 8e941d3f-bd1b-0410-a28a-d453659cc2b4
31 lines
433 B
ObjectPascal
31 lines
433 B
ObjectPascal
unit wst_indy9_utils;
|
|
|
|
interface
|
|
uses SysUtils, IdTCPServer;
|
|
|
|
type
|
|
|
|
TwstIndy9Thread = class(TIdPeerThread)
|
|
protected
|
|
procedure AfterExecute; override;
|
|
procedure BeforeExecute; override;
|
|
end;
|
|
|
|
implementation
|
|
uses ActiveX;
|
|
{ TwstIndy9Thread }
|
|
|
|
procedure TwstIndy9Thread.AfterExecute;
|
|
begin
|
|
CoUninitialize();
|
|
inherited;
|
|
end;
|
|
|
|
procedure TwstIndy9Thread.BeforeExecute;
|
|
begin
|
|
inherited;
|
|
CoInitialize(nil);
|
|
end;
|
|
|
|
end.
|