[Siropchik]

Не судите строго я в программировании новичок самоучка.
Проблема вот такая
Через телнет соедняюсь с ххх приложением и шлю ему запросы.
Если получать ответ на запросы в обработчике событий TForm1.IdTelnet1DataAvailable то ответ приходит и нет никаких проблем
но мне получить ответ в глобальной переменной типа String
я делаю это так (пример ниже) и после вызова процедуры Send_Telnet(command); в переменной String_response пустота.
Помогите пожалуйста , уже начал головой бится об стену , отблагодарю как смогу.

PHP код:

implementation
{$R *.dfm}
//************************************************************************
procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: String);
begin
String_response:= Buffer;
Status_response:= True;
//Form1.caption:=Buffer;
end;
//************************************************************************
procedure TForm1.Send_Telnet(command: string);
var
i :  LongWord;
begin
 IdTelnet1.Host := 'localhost';
 IdTelnet1.port := 6060;
 if not(idTelnet1.Connected) then
  try
    IdTelnet1.Connect;      
  except
    ShowMessage('not connect');
  end;
 if idTelnet1.Connected then
  Begin
    String_response:='';
    Status_response:= False;   
    idTelnet1.WriteLn(command);  
    while  Status_response do ; 
 end;
end; 


если закоментировать в процедуре procedure TForm1.Send_Telnet(command: string); строку String_response:=''; и через Button отправлять запрос , то возврат ответа появляется только пр нажатии на кнопку второй раз

PHP код:

procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.caption:='';
Send_Telnet('<request><get_camera></get_camera></request>');
Form1.caption:=String_response;
String_response:='';
end; 


[NumLock]

ну так и объяви глобальную переменную и в IdTelnet1DataAvailable присвой ей Buffer:

Код:

var
  Form1: TForm1;
  GBuffer: String;

implementation

{$R *.dfm}

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: String); 
begin 
GBuffer:= Buffer;

[Siropchik]

Так у меня она обьявленна

PHP код:

var
  Form1: TForm1;
  String_response: string;
const
PBT_APMRESUMEAUTOMATIC = $0012;
PBT_APMSUSPEND =4;
PBT_APMRESUMESUSPEND =$0007;

implementation
{$R *.dfm} 


[NumLock]

что-то типа этого для начала:

Код:

procedure TForm1.Send_Telnet(command: string); 
var 
i :  LongWord; 
begin 
 IdTelnet1.Host := 'localhost'; 
 IdTelnet1.port := 6060; 
 if not(idTelnet1.Connected) then 
  try 
    IdTelnet1.Connect;       
  except 
    ShowMessage('not connect'); 
  end; 
 while not idTelnet1.Connected do Sleep(0);
  Begin 
    String_response:=''; 
    Status_response:= False;    
    idTelnet1.WriteLn(command);   
    while  not Status_response do Sleep(0);
 end; 
end; 

[Siropchik]

С этим кодом программа зависает

PHP код:

if idTelnet1.Connected then
  Begin 
    String_response:=''; 
    Status_response:= False;    
    idTelnet1.WriteLn(command);   
    while not Status_response do Sleep(0); //зависает здесь
  end; 


[NumLock]

значит IdTelnet1DataAvailable не наступает и Status_response:= True; в нем не срабатывает.

[Siropchik]

А почему while not Status_response , так как в этой переменной значение False то цикл должен прерватся по достижению значения TRUE а не False или я не правильно понимаю http://www.delphisources.ru/pages/fa...While.php.html

[NumLock]

ну так ты же сам сбрасываешь статус перед посылкой команды, а в событии устанавливаешь. вот цикл после отправки команды и будет крутить пока статус не установиться в событии.

[Siropchik]

Для проверки сделал вот такой цикл, он не зависает

PHP код:

for i := 0 to $ffffffff do
    begin
      if Status_response then  break;
      sleep(i);
    end; 


[NumLock]

так сделай:

Код:

while not Status_response do Application.ProcessMessages;

[Siropchik]

Большое спасибо помогло!!!