VPF::[Delphi] Oбмен данными клиент-сервер

etni

Дата 8.6.2008, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Сам не очень разбираюсь,а посему спрашиваю у вас совета и надеюсь на помощь!

Цитата

program Clt1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

var
  A: String;
  B: array[0..80] of Char;
  V: File;
  G, D: Integer;
  E: string[80];

begin
  WriteLn('<<<<<< Client of term paper. >>>>>>');
  WriteLn('<<<<<< Using named pipe.     >>>>>>');
  WriteLn('');
  if ParamCount = 1 then A := '\\'+ParamStr(1)+'\PIPE\kurs'
    else A := '\\.\PIPE\kurs';
  WriteLn('-- Connect to: ' + A);
  while NOT WaitNamedPipe(PChar(A), NMPWAIT_USE_DEFAULT_WAIT) do;
  WriteLn('--Client connected!!!');
  AssignFile(V, A);      // запишем название канала (фактически файл) в переменную V
  Reset(V, 1);           // открываем канал указанный в V для чтения и записи
  Repeat
    E := '';

    Write('> ');
    ReadLn(E);
    BlockWrite(V, E, length(E) + 1, G);
    if G < length(E) + 1 then WriteLn('G < E+1');

//    repeat
    while true do begin
      B := '';
      BlockRead(V, B, {SizeOf(B)} 100, D);
      if B <> '' then WriteLn(B);
    end;
//    until B = '';

  until E = 'Exit';
  CloseFile(V);
end.

где-то в коде клиента есть замкнутый цикл, засоряющий канал обмена данными между клиентом и сервером, из-за чего вся конструкция виснет после 1й команды.
Помогите разомкнуть пожалуйста! Честно признаюсь,что сам не осилю!
Если понадобиться - выложу код сервера.
Спасибо за внимание!

п.с.
послезавтра сдавать....выручите пожалуйста!

Guedda

Дата 9.6.2008, 07:15 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

M
Guedda

Модератор: Заголовок в теме должен быть по правилам Центра Помощи!

--------------------

Ll 2

etni

Дата 9.6.2008, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Друзья,пожалуйста,выручите хоть набросками решения проблемы!
Завтра показывать уже....

п.с.
правила прочитал(по поводу запрещённого "up"a ) но уже совсем края! =(

Это сообщение отредактировал(а) etni - 9.6.2008, 22:40

valentos

Дата 12.6.2008, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: 2
Всего: 2

Ужос

Вот твой бесконечный цикл:

Код


 while true do begin
      B := '';
      BlockRead(V, B, {SizeOf(B)} 100, D);
      if B <> '' then WriteLn(B);
    end;

Поидее там проверка какаета должна быть, а у тя получаетсятак : "пока истина - насиловать комп". Вместо True поставь условие smile

Это сообщение отредактировал(а) valentos - 12.6.2008, 22:33

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »