работа с wininet.dll

[Lucky13]

Здравствуйте, господа!

Есть следующий код:

void PutFile(str 50 proxy, str 50 url, str 50 login, str 50 pass, str 50 local, str 50 remote)
{
DLL InetDll = new DLL('wininet');
DLLFunction InternetOpen = new DLLFunction(InetDll, 'InternetOpenA');
DLLFunction InternetConnect = new DLLFunction(InetDll, 'InternetConnectA');
DLLFunction FTPPutFile = new DLLFunction(InetDll, 'FtpPutFileA');
DLLFunction InternetCloseHandle = new DLLFunction(InetDll, 'InternetCloseHandle');

int res;

InternetOpen.returns(ExtTypes:Word);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes:Word);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes:Word);

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

InternetConnect.returns(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes::Word);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);

hConnect = InternetConnect.call(hInternet, url, 21, login, pass, 1, 0, 0);

FTPPutFile.returns(ExtTypes:Word);
FTPPutFile.arg(ExtTypes:Word);
FTPPutFile.arg(ExtTypes::String);
FTPPutFile.arg(ExtTypes::String);
FTPPutFile.arg(ExtTypes:Word);
FTPPutFile.arg(ExtTypes:Word);

res = FTPPutFile.call(hConnect, local, remote, 2, 0);

InternetCloseHandle.returns(ExtTypes::Word);
InternetCloseHandle.arg(ExtTypes:Word);

InternetCloseHandle.call(hConnect);
InternetCloseHandle.call(hInternet);
}

Переменные hItnernet и hConnect объявлены в cassDeclaration

В таком виде данная ф-ция прекрасно работает, но хотелось бы чтобы каждая ф-ция из DLL была в отдельной ф-ции класса. В этом случае работать сразу перестает (ф-ция InternetConnect возвращает ошибку). В Delphi и VB такой механизм работает.

Где глюк????

[Diman]

А как ошибка выглядит?

[Lucky13]

GetLastError возвращает 12172, а сама ф-ция возвращает 0
в MSDN описаны коды с 12001 - 12156 ???

[Diman]

Цитата:

Изначально опубликовано Lucky13
в MSDN описаны коды с 12001 - 12156 ???

Плохо смотрели в MSDN есть
http://msdn.microsoft.com/library/de...r_messages.asp

[Lucky13]

Спасибо за ссылку, но это проблемы не решает
Ясно что хэндл неправильно инициализирован, вопрос почему?
Причем когда все в одной ф-ции - работает, а в разных не работает

[Diman]

xpo с классом выложите

[Lucky13]

Выложил

[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);

 } 


[Lucky13]

Спасибо за совет, все получилось.