работа с wininet.dll

[Diman]

Попробуйте перегрузить метод new() Вашего класса, где проинициализируйте все объекты Internet. Что-то вроде

PHP код:

void new(str 50 proxy, str 50 url, str 50 login, str 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', 3, proxy, '', 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(hInternet, url, 21, login, pass, 1, 0, 0);

 }