Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Вниз

Еще про прокси...   Найти похожие ветки 

 
Landgraph   (2002-02-28 09:21) [0]

Есть компонент типа TClientSocket, как заставить его работать через прокси сервер? Индевские и прочие компоненты не предлагать.


 
Ghost.   (2002-02-28 09:28) [1]

Ты сначала задачу уточни прежде чем компоненты к чемуто принуждать..и, что за прокси стоит тоже очень важно..


 
Polevi   (2002-02-28 13:39) [2]

type
command=record
sctype:byte;
command:byte;
port:word;
addr:longint;
zero:byte;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
WSAData: TWSAData;
begin
WSAStartup($0101, WSAData);
cs.Address:="192.168.1.1"; //сокс сервер прокси
cs.Port:=1080; //порт может быть другой
cs.Active:=true;
end;


procedure TForm1.csConnect(Sender: TObject; Socket: TCustomWinSocket);
var
buf:command;
begin
buf.sctype:=4;
buf.command:=1;
buf.port:=110*256; //110 порт (POP)
buf.addr:=Integer(Pointer(PHostEnt(GetHostByName(PChar("194.67.57.51"))).h_addr^)^); //IP-адрес mail.ru
buf.zero:=0;
Socket.SendBuf(buf,9);
end;

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add(Socket.ReceiveText); //получаем приглашение сервера mail.ru
end;


 
Landgraph   (2002-03-01 12:56) [3]

2Ghost:
Обычный прокси, которых в интернете полно. Нужно через него соединяться с произвольным портом на сервере. Вроде все



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.004 c
3-39663
Элизабет
2002-04-17 16:46
2002.05.13
Дата1-дата2 в select


1-39714
Stocker:)
2002-04-27 09:56
2002.05.13
функция и динамический массив


14-39838
Condor
2002-04-04 10:46
2002.05.13
Copy DB


4-39906
Aric
2002-03-12 15:24
2002.05.13
Перерисовать Image


6-39811
YOjick
2002-02-28 15:50
2002.05.13
Что-то странное с сокетами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский