Сокеты

[ben95]

вот использую

if Socket.ReceiveText='1' then Shape1.Top:=Shape1.Top-2;
if Socket.ReceiveText='2' then Shape1.Left:=Shape1.Left-2;
if Socket.ReceiveText='3'then Shape1.Top:=Shape1.Top+2;
if Socket.ReceiveText='4' then Shape1.Left:=Shape1.Left+2;

вроде так!
но непашет кричит!
[Error] Unit1.pas(45): Undeclared identifier: 'Socket'
в чём причина?
если я использовал нето то подскажите как правельно!

[Баламут]

Объяви переменную типа SOCKET. Почти по-русски пишет же.

[ben95]

как куда зачем?

[vitalik007]

ben95
Ты что первый день в delphi?
объявляют после var

[BOBAH13]

Мда... нынче люди идут все уникальней :D По функции ReceiveText видно что юзается TClientSocket ( и ему подобные ) и если я не ошибаюсь такой код пахать не будет т.к. буфер при первом же if будет прочитан и windows'ом отчищен, и значит 2 и следующие if вернут False и причем тут к Socket var вообще не ясно. А ясно одно, что дорогоуважаемый ben95 садитесь и учите азы object pascal ибо толку от того что вы пишите ( а как видно что не вы вовсе ) НИКАКОГО.

[ben95]

ну дайте пример как заставить предвигатся обекст !(на червере я шлю команды 1 или 2 или 3 или 4 а клиент понимает эти знацения и выполняет те действия какие присуждены посылаемому тексту)!!

[BOBAH13]

Только БОГ может понять это "предвигатся обекст !(на червере я ..."

var tmp: String;
tmp := Socket.receivetext;
if tmp = '1'... и т.п.

так лучше делайте чем сравнивать receivetext

[Квэнди]

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

ну дайте пример как заставить предвигатся обекст !(на червере я шлю команды 1 или 2 или 3 или 4 а клиент понимает эти знацения и выполняет те действия какие присуждены посылаемому тексту)!!

Для начала сформулировайте вопрос на русском языке.
Представьте код, который вы написали, что конкретно у вас не получается.
Пока ни вопроса ни объяснения ситуации на русском языке нет, так что пока не будет подробного описания проблемы остальные ответы считаются флудом ибо отвечать не на что.