![]() |
|
#1
|
|||
|
|||
![]() Я начал читать про 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/ |