Я создал программу(клиент и сервер)
Так вот клиент у меня на 1ом компьютере сервер на 2ом с клиента я посылаю текст сервер принимает и проверят если текст '111' то он отправляет клиенту данные(тут нету проблеммы)а если текст другой не '111' то он выводит текст(showmessage) какой я отправил на компьютере где и стоит этот самый сервер тоесть на 2ом
Проблемма : если я отправил 111 то мне приходит информация нужная а если я отправляю другой текст то он его не выводит на 2ом showmessage'м не пойму что не так может вы поможете
вот код сервера
procedure TForm2.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
SR: TSearchRec; // поисковая переменная
FindRes: Integer;
s:string;
i:string;
begin
if socket.ReceiveText='111' then
begin
ListBox1.Clear;
FindRes := FindFirst('C:\Documents and Settings\Admin\Рабочий стол\*.*', faAnyFile, SR);
while FindRes = 0 do // пока мы находим файлы (каталоги), то выполнять цикл
begin
s:=sr.Name;
ListBox1.Items.Add(SR.Name); // добавление в список название
socket.SendText(s);
FindRes := FindNext(SR); // продолжение поиска по заданным условиям
end;
FindClose(SR); // закрываем поиск
end
else
begin
i:=socket.ReceiveText;
beep;
showmessage(i);
end;
end;
Примечание:
Werewolf_ (Alex Werewolf) нет не получается если прописую перед if то выводит то что я отослал с клиента и в том числе 111 а при 111 сервер мне отправлять данные как будто if Он пропускает
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.