Показать сообщение отдельно
Старый 01.12.2004, 14:55   #8  
Diman is offline
Diman
Участник
Сотрудники Microsoft Dynamics
 
166 / 35 (2) +++
Регистрация: 27.06.2003
Адрес: Москва
Попробуйте перегрузить метод new() Вашего класса, где проинициализируйте все объекты Internet. Что-то вроде
PHP код:
void new(str 50 proxystr 50 urlstr 50 loginstr 50 pass)
{
   
InetDll = new DLL('wininet');
   
InternetOpen = new DLLFunction(InetDll'InternetOpenA');
   
InternetConnect = new DLLFunction(InetDll'InternetConnectA');
   
FTPPutFile = new DLLFunction(InetDll'FtpPutFileA');
   
InternetCloseHandle = new DLLFunction(InetDll'InternetCloseHandle');


   
InternetOpen.returns(ExtTypes-DWord);
   
InternetOpen.arg(ExtTypes-)String);
   
InternetOpen.arg(ExtTypes-)DWord);
   
InternetOpen.arg(ExtTypes-)String);
   
InternetOpen.arg(ExtTypes-)String);
   
InternetOpen.arg(ExtTypes-)DWord);

   
hInternet InternetOpen.call('Ax30'3proxy''0);

   
InternetConnect.returns(ExtTypes-)DWord);
   
InternetConnect.arg(ExtTypes-)DWord);
   
InternetConnect.arg(ExtTypes-)String);
   
InternetConnect.arg(ExtTypes-)Word);
   
InternetConnect.arg(ExtTypes-)String);
   
InternetConnect.arg(ExtTypes-)String);
   
InternetConnect.arg(ExtTypes-)DWord);
   
InternetConnect.arg(ExtTypes-)DWord);
   
InternetConnect.arg(ExtTypes-)DWord);

   
hConnect InternetConnect.call(hInterneturl21loginpass100);

 }