[smoke123]

Я понимаю, что не в тему, но не нашел как создать свою. У меня проблемка в создании сервер-клиента...Вернее сервер не хочет отсылать текст клиенту, может у кого была проблема помогите пожалуйста.

Итак, код События кнопки ОнПресс на сервере:

Код:

If ServerSocket1.Active=True then
ServerSocket1.Socket.Connections[0].SendText('Gu');

И код на событие ОнРид в клиентСокете:

Код:

if Socket.ReceiveText='Gu' then
begin
Img3.Left:=Img3.Left+10;

Вроде все правильно...И компиляция проходит, но Изображение не двигаеться...

Извини человек в чью тему я влез, просто очень срочно нужно доделать, а Ошибка помоему потому,что все используемые переменные должны быть объявлены (перечислены в блоке var c указанием их типа.

[PhoeniX]

Отладчик в помощь.
Клиент точно подсоединился к серверу?

[smoke123]

Сообщение от DJ PhoeniX

Отладчик в помощь.
Клиент точно подсоединился к серверу?

Что за отладчик?)
клиент точно подсоединен...

[smoke123]

Ладно так дело не пойдет, объявляю награду в размере 15вмр, подарок не большой, но приятный.
Ктонибудь может это решить?

[angvelem]

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

Что за отладчик?)
клиент точно подсоединен...

"Ctrl-Alt-C", попадаешь в аасемблер и начинаешь по F8 "прошагивать" код. Либо просто "шагаешь" по F8.

[smoke123]

Нажимаю "Ctrl-Alt-C" ничего не происходит...)
А по F8, на первом же шаге ошибка бегин енд...)

[angvelem]

Ну так учи "горячие" клавиши. Ставишь курсор на строку с которой хочешь начать "прошагивание". Нажимаешь F4 - попадаешь на эту строку, далее F8 (заход в процедуры/функции - F7)

[PhoeniX]

Не пугай человека, ассемблер тут не нужен
http://orencode.info/forum/showthread.php?t=2309

[smoke123]

Да в том то и дело, что не ни логических ни синтаксических ошибок нет, просто сервер не передает команду на клиент и все...)

[angvelem]

Ну так я и дописал:

Либо просто "шагаешь" по F8.

Вот при "прошагивании" и можно увидить, что происходит.

[PhoeniX]

О мой скотч... Прочитай статью ещё раз, желательно активировав при этом скил "вдумываться".

[smoke123]

Так я нашел где проблема, но не могу сам понять что не так:

Код:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin

if Socket.ReceiveText='Start' then
tmr2.enabled:=True else

if Socket.ReceiveText='Gu' then
Img3.Visible:=False;

end;

Итак когда if Socket.ReceiveText='Gu' вначале операции не работает ничего, когда if Socket.ReceiveText='Start' тогда работает только Старт...бред..

[PhoeniX]

ReceiveText получает сообщение с сокета только 1 раз. Соответственно, во второй раз там уже пусто. Читай во временную переменную, и работай с ней.