обмен данными с сервером

[BioS]

говорб сразу, что я только недавно начал изучать делфи, так что если что то не судите строго.

значит я поставил перед собой задачу написать программу, которая подключается к серверу и обменивается с ним данными (цели у программы нету, просто из интереса). все оесновное я написал, но я не получаю ответа от сервера. подключаюсь я к ftp серверу. раньше я делал попытки написать что то похожее на php (благо я его прилично знаю) но по определенным причинам я это дело бросил, хотя ответ от сервера я получал!

вот код некоторых процедур из моей программы

procedure TForm1.Button2Click(Sender: TObject);
var
outdata : string;
begin
outdata := edit3.Text;
TcpClient1.Sendln(outdata);
memo1.Lines.Add('< ' + outdata);
edit3.Text := '';
edit3.SetFocus;
end; - это процедура нажатия кнопки отправить


procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
var
indata : string;
begin
TcpClient1.Receiveln(indata);
memo1.Lines.Add('>' + indata);
end; - это как я считаю должно быть приемом данных

(так как в книге по которой я учусь ничего нету про сокеты, это я составил на основе данных статей из интернета)

соеденение точно установлено, т.к. касперский показывает в мониторинги сети установленное соеденение. мне кажется что то не то во 2 процедуре. жду помощи!!

[zetrix]

Никогда не работал с этими компонентами
Вообще для связи я обычно использую IdTCPClient1, ClientSocket1.

Но, для фтп есть специальные компоненты.
"Делфи глазами хакера" 4.5Мб - там есть написание фтп-сервера (аналогично пишется клиент).
Так же вот набор компонентов, который там используется (есть FTP-Client и FTP-Sеrver думаю тебе как раз это и нужно)

[BioS]

ну фтп сервер - это только пример. возможно и лубой другой. суть в том чтоб данные получались. а где про эти компоненты прочитать?

[zetrix]

В этой же книге (Делфи глазами хакера)

[BioS]

а чем они отличаются

[zetrix]

не понял... Что от чего отличается? Все эти компоненты для работы с сетью? Хм.. А чем отличается... Button от BitBtn? Почти одинаковы, но есть доп. методы, свойства и т.д.

[BioS]

а как в delphi определить свой ip адрес


и еще

в процедуре есть переменная cmd тип string

case cmd of
'msg' :
begin
.....
end;


пишет что типы integer и string несовместимы, а где тут integer?

[zetrix]

а как в delphi определить свой ip адрес

Во тут-то и загвоздка, т.к. если подключение едёт через локалку/шлюз или прокси, то во внешке будут видеть не Ваш ИП. А сетевой IP как правило бессмысленный в таких случаях.
Как узнать тот самый - внешний ИП я не знаю
Кто знает напишите.

[BioS]

Сообщение от zetrix

Во тут-то и загвоздка, т.к. если подключение едёт через локалку/шлюз или прокси, то во внешке будут видеть не Ваш ИП. А сетевой IP как правило бессмысленный в таких случаях.
Как узнать тот самый - внешний ИП я не знаю
Кто знает напишите.

а мне какраз и сетевой нужен!

кстати может знаете, мне нужно чтоб программа на некоторое время останавливалась и по истечении которого снова продолжалась

[Prowler]

Сообщение от BioS

а мне какраз и сетевой нужен!

кстати может знаете, мне нужно чтоб программа на некоторое время останавливалась и по истечении которого снова продолжалась

sleep(X), где X целое число в мс.