Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Еще про прокси...

Landgraph © (2002-02-28 09:21:00)
Есть компонент типа TClientSocket, как заставить его работать через прокси сервер? Индевские и прочие компоненты не предлагать.

Landgraph (2002-03-01 12:56:00) [1]
2Ghost:
Обычный прокси, которых в интернете полно. Нужно через него соединяться с произвольным портом на сервере. Вроде все

Polevi (2002-02-28 13:39:00) [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;

Ghost. (2002-02-28 09:28:00) [3]
Ты сначала задачу уточни прежде чем компоненты к чемуто принуждать..и, что за прокси стоит тоже очень важно..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »