А пояснить слегка можно, т.к. я не совсем понял. По поводу php и cgi... ]]> Zvik Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265359 Wed, 17 Dec 2003 16:29:51 +0000 https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265359

http://shu.ru/tech/wininet/ftp-1.htm#wininet_ftp

я бы сделал на php или cgi работу с ftp, а потом уже конектился бы через прокси, с аутентификацией к скрипту. ]]> P.O.D Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265352 Wed, 17 Dec 2003 16:15:59 +0000 https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265352 //....
resend:
HttpSendRequest (hResourceHandle,
nil,
0,
nil,
0);
lpdwIndex:=0;
HttpQueryInfo (hResourceHandle,
HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE,
@dwstatus,
dwStatusSize,
lpdwIndex);

case dwStatus of
HTTP_STATUS_PROXY_AUTH_REQ :
Begin
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_USERNAME,
@strusername,
StrLen(@strusername)+1);
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_PASSWORD,
@strpassword,
StrLen(@strpassword)+1);
goto resend;
exit;
End;
HTTP_STATUS_DENIED :
Begin
InternetSetOption(hResourceHandle,
INTERNET_OPTION_USERNAME,
@strusername,
StrLen(@strusername)+1);
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PASSWORD,
@strpassword,
StrLen(@strpassword)+1);
goto resend;

End;

end;{case}
//....
Как сделать через фтп что-то похожее??? Или это невозможно ]]> Zvik Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265122 Wed, 17 Dec 2003 12:15:44 +0000 https://forum.sources.ru/index.php?showtopic=40858&view=findpost&p=265122 Zvik Delphi: Сетевое программирование