object IdHTTPServer1: TIdHTTPServer
Active = True
Bindings = <>
DefaultPort = 4322
OnCommandGet = IdHTTPServer1CommandGet
Left = 8
Top = 40
end
простой прокси-серве
Пытаюсь реализовать обычный прокси-сервер, просто через который будут идти запросы браузера и все! - хотя бы на этом разобраться.
на форме IdHTTPServer1 с настройками:
+ настроил браузер на этот порт
код:
приведенный код через раз выдает ошибку
Подскажите пожалуйста что не так. Уже неделю не могу с этим справиться.
на форме IdHTTPServer1 с настройками:
Код:
код:
Код:
void __fastcall TForm1::IdHTTPServer1CommandGet(TIdPeerThread *AThread,
TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo)
{
TIdHTTP *myhttp = NULL;
try{
myhttp = new TIdHTTP(0);
myhttp->Request->ExtraHeaders->Text = RequestInfo->Headers->Text;
ResponseInfo->ContentText = myhttp->Get("http://"+RequestInfo->Host+RequestInfo->Document);
}
catch (Exception &Er){
ShowMessage("Error: " + Er.Message);
}
delete myhttp;
}
TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo)
{
TIdHTTP *myhttp = NULL;
try{
myhttp = new TIdHTTP(0);
myhttp->Request->ExtraHeaders->Text = RequestInfo->Headers->Text;
ResponseInfo->ContentText = myhttp->Get("http://"+RequestInfo->Host+RequestInfo->Document);
}
catch (Exception &Er){
ShowMessage("Error: " + Er.Message);
}
delete myhttp;
}
приведенный код через раз выдает ошибку
Подскажите пожалуйста что не так. Уже неделю не могу с этим справиться.
Прошу прощения, но idHTTPProxyServer не устраивает? Уже готовый проксик.
хм...впринципе я даже о нем и не думал.
да и в 6-ом нет такого компонента =(
да и в 6-ом нет такого компонента =(
Поставь себе 2009 коде геар). Программки будут более красивыми.
Или обнови компоненты Indy =). Готовый компонент прокси. Правда документации по нему не очень много, но с какими-то аспектами могу помоч).
Или обнови компоненты Indy =). Готовый компонент прокси. Правда документации по нему не очень много, но с какими-то аспектами могу помоч).
Цитата: newcss
Поставь себе 2009 коде геар). Программки будут более красивыми.
Или обнови компоненты Indy =). Готовый компонент прокси. Правда документации по нему не очень много, но с какими-то аспектами могу помоч).
Или обнови компоненты Indy =). Готовый компонент прокси. Правда документации по нему не очень много, но с какими-то аспектами могу помоч).
ок. Инди обновил! Как теперь с помощью IdHTTPProxyServer реализовать мою задачу?
у него нет события OnCommandGet =(
спасибо. А этот прокси только перенаправляет запросы и все?
поидее должно быть:
1. ip и порт прокси (указываю в браузере)
2. ip и порт куда перенаправить
а в ини файле есть только внутренный адрес, внешний, и порт (какой?)...чет не пойму...