1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 20:12:16 -05:00

Simba: Socks Fix

This commit is contained in:
John P (Dgby714) 2010-12-20 01:48:42 -05:00 committed by Merlijn Wajer
parent 3874776aab
commit 7dc15679e7

View File

@ -119,6 +119,7 @@ type
Prop: TScriptProperties; Prop: TScriptProperties;
Client : TClient; Client : TClient;
MInternet : TMInternet; MInternet : TMInternet;
Socks: TSocks;
StartTime : LongWord; StartTime : LongWord;
Settings: TMMLSettings; Settings: TMMLSettings;
SimbaSettingsFile: String; SimbaSettingsFile: String;
@ -309,6 +310,7 @@ begin
if Assigned(OpenFileEvent) then if Assigned(OpenFileEvent) then
Client.MFiles.OpenFileEvent := OpenFileEvent; Client.MFiles.OpenFileEvent := OpenFileEvent;
MInternet := TMInternet.Create(Client); MInternet := TMInternet.Create(Client);
Socks := TSocks.Create(Client);
if Assigned(OpenConnectionEvent) then if Assigned(OpenConnectionEvent) then
MInternet.OpenConnectionEvent := Self.OpenConnectionEvent; MInternet.OpenConnectionEvent := Self.OpenConnectionEvent;
SyncInfo:= TheSyncInfo; SyncInfo:= TheSyncInfo;