Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c