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

Команды клиент сокета   Найти похожие ветки 

← →
LFRT   (2006-12-13 11:13) [0]

В сокетах (TClient/Server.Socket-ы) я только разбираюсь.
Какие команды необходимо посылать серверу чтобы например  закачать файл (протокол HTTP/FTP).
Если можно приведите простой пример или часть примера.
Я пробовал с локальным (localhost порт 21) FTP сервером, посылаю команды, а сервер не отвечает,
хотя используя  готовый клиенте отклик идет.
Код  FTP клиента ниже.

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Open;//открываю
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
   with log.Lines Do //эти данные получаю от сервера
 begin
 Add("LocalHost - "+Socket.LocalHost);
 Add("LocalAddress - "+Socket.LocalAddress);
 Add("RemoteHost - "+Socket.RemoteHost);
 Add("RemoteAddress - "+Socket.RemoteAddress);
 end;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 with log.Lines Do
 begin
 Add(Socket.ReceiveText);
 end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ClientSocket1.Close
end;

procedure TForm1.ClientSocket1Write(Sender: TObject;
 Socket: TCustomWinSocket);
begin
Beep;
// а вот на эти команды сервер не отвечает, как правильно их отправлять?
Socket.SendText("user new");
Socket.SendText("pass new");
Socket.SendText("syst");
end;

---

← →
Dmitrij_K   (2006-12-13 11:27) [1]

Отправить команду, ждать ответ, в зависимости от ответа отправлять следующую команду.
Команда завершается переводом строки - #13#10.
Какие команды необходимо посылать серверу чтобы например  закачать файл (протокол HTTP/FTP).
Если можно приведите простой пример или часть примера.
Лучше  для начала готовыми компонентами пользуйся, например библиотека Indy

---

← →
LFRT   (2006-12-13 11:57) [2]

Добавил #10#13 обмен пошел.
И сразу возник еще вопрос. Анализировать необходимо
команду сервера (строку) ReceiveText или число возвращаемое функцией
SendText.

---

← →
Сергей М. ©   (2006-12-13 12:07) [3]

И то и другое.
Ибо это функции и они возврвщают отнюдь не бессмысленный результат.

---

← →
Сергей М. ©   (2006-12-13 12:08) [4]

> команду сервера


Сервер никаких "команд" не подает.
Командует клиент, а сервер лишь возвращает результат выполнения команды.

---

← →
LFRT   (2006-12-13 12:32) [5]

Спасибо всем ответившим на вопросы, разбираюсь дальше...

---

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

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



Память: 0.46 MB
Время: 0.013 c