Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

найдите ошибку пожалуста уже 2 часа на этот сорц смотрю [D7, XP]

cosy © (2007-11-12 14:57:00)
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
WA,s:string; k:boolean;
begin

wa:=serversocket1.Socket.Connections[0].ReceiveText;

if copy(wa,1,3)='ris' then
begin
k:=true;
serversocket1.Socket.Connections[0].SendText('server ris');
memo1.Lines.Add(s) ;
while k=true do
begin
memo1.Lines.Add(copy(s, pos('(',s)+1 , pos('+',s)-pos('(',s)-1));
memo1.Lines.add(copy(s, pos('+',s)+1 , pos(')',s)-pos('+',s)-1));
application.ProcessMessages;
delete(s, pos('(',s), pos(')',s)- pos('(',s) );
if s='' then k:=false;
end;

end
else
begin
s:=s+wa; memo1.Lines.Add(wa);
end;
end;

одним словам клиент сканирует картинку и отправляет кординаты пиксилей прога эта должна записать все эти кардинаты сплошным текстом в переменую S а потом выдать их в мемик но не фига она не выдаёт а тока пробелы когда я на сервер рис отправляю

Сергей М. (2007-11-12 15:21:00) [1]

> заметь S:=......
>

S при этом равно '' (пустая строка)
Никаких пробелов в ней при этом нет и быть не должно.
Так что автор попросту врет)

terc (2007-11-12 15:17:00) [2]
Удалено модератором
Примечание: Пункты Р.2, и З.5

Skyle (2007-11-12 15:16:00) [3]

> terc © (12.11.07 15:14) [9]
> смотри внимательнее там когда приползает сообщение он
> его сравнивает если не равен ris тогда
>
> s:=s+wa; memo1.Lines.Add(wa);
>
> заметь S:=......

1. цитата была из момента, когда всё-таки равен
2. Я заметил, что тут не S := , а S := S + .
Так чему равен S?

terc (2007-11-12 15:14:00) [4]
смотри внимательнее там когда приползает сообщение он его сравнивает если не равен ris тогда

s:=s+wa; memo1.Lines.Add(wa);

заметь S:=......

terc (2007-11-12 15:12:00) [5]
да они глумятся насчет пробелов их там по логике вещей быть неможет
просто взятся неоткуда

Skyle (2007-11-12 15:12:00) [6]
var WA,s:string;
....
memo1.Lines.Add(s) ;

А что должно содержаться в S? Оно нигде не присваивается.

Сергей М. (2007-11-12 15:11:00) [7]
И где тут пробелы ?
В упор не вижу никаких пробелов.

Reindeer Moss Eater (2007-11-12 15:10:00) [8]
Значит все хорошо

terc (2007-11-12 15:09:00) [9]
люди но мой клиент отправляет ему вот такие команды

(490+463)
(490+464)
(491+456)
(491+457)
(491+458)
(491+459)
(491+460)
(491+461)
(491+462)
(491+463)
(492+456)
(492+457)
(492+458)
(492+459)
(492+460)
(492+461)
(492+462)
(493+455)
(493+456)
(493+457)
(493+458)
(493+459)
(493+460)
(493+461)
(494+456)
(494+457)
(494+458)
(494+459)
(494+460)
(495+456)
(495+457)
(495+458)

Сергей М. (2007-11-12 15:08:00) [10]
Значит ф-ция Copy возвращает пробелы. Больше им, пробелам этим, взяться неоткуда.

terc (2007-11-12 15:04:00) [11]
а помимо пробелов там ещё коечто есть тока вот почемута ему ткоа робелы нравятся

Сергей М. (2007-11-12 15:03:00) [12]

> не фига она не выдаёт а тока пробелы

Значит в передаваемой строке есть пробелы.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »