Тема: Indy
Показать сообщение отдельно
  #1  
Старый 09.01.2011, 10:47
true true вне форума
Новичок
 
Регистрация: 03.10.2010
Сообщения: 64
Репутация: 10
По умолчанию Indy

Я начал читать про Indy, и вот в книге "Глубины Indy" есть один пример "шутка"
Сервер состоит из двух частей, Server.pas и BSOD.pas.
на форме ListBox, 3 checkbox'a и edit
Код:
procedure TformMain.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; 
ABinding: TIdSocketHandle); 
var 
  LMsg: string; 
begin 
  if AData.Size = 0 then  
  begin 
    formBSOD.Hide; 
  end  
  else  
  begin 
    // Move from stream into a string 
    SetLength(LMsg, AData.Size); 
    AData.ReadBuffer(LMsg[1], Length(LMsg)); 
   
    formBSOD.ShowBSOD(Copy(LMsg, 3, MaxInt),  
Copy(LMsg, 1, 1) = 'T',  
Copy(LMsg, 2, 1) = 'T'); 
  end; 
end; 

Меня интересует последняя часть, formBSOD.ShowBSOD == showmodal? не? другие функции не работают связанные с ЫРЩЦ,б а showmodal пишет мол many actual parameters// help plz/
Ответить с цитированием