Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Oбмен данными клиент-сервер


Автор: etni 8.6.2008, 23:20
Сам не очень разбираюсь,а посему спрашиваю у вас совета и надеюсь на помощь!
Цитата

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

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

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


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

Автор: valentos 12.6.2008, 22:30
 smile  Ужос smile 
Вот твой бесконечный цикл:
Код

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)