ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от _nic

Где метод для рисовки на канву TPanel ????

можно использовать класс TControlCanvas:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 cc: TControlCanvas;
begin
   cc := TControlCanvas.Create;
   cc.Control := Panel1;
   cc.MoveTo(0,0);
   cc.LineTo(Panel1.Width,Panel1.Height);
end;

Цитата:

Сообщение от Ponchik

tcpclnt1 это открытый порт
мне надо читать чё мне сервер говорит - tcpclnt1.Reciveln Если сервер послал 2 строки, а я захочу прочитать 3 раза tcpclnt1.Reciveln то прога завснет, будет ждать 3 строку, как мне узнать, сколько нужно читать tcpclnt1.Reciveln?

Не совсем понятно, пытаетесь использовать компоненты или работаете через WinSock?! Как я понимаю, то tcpclnt1 - это компонент типа TidTCPClient? К тому же в качестве аргумента функции EOF () передается файл, а не компонент