sammozg
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток!
не подскажите где найти пример клиент серверного приложения на delphi 10 seattle с использованием indy, я в delphi 7 до этого написал огромнийшую прогу с indy, а теперь нужно в неё кое что добавить, но в семёрке этого увы не сделать, вот и мучиюсь теперь.... пытался сделать через это
"procedure TIdIOHandler.Write(const ABuffer: TIdBytes; const ALength: Integer = -1; const AOffset: Integer = 0);"
выдаёт ошибку [dcc32 Error] Unit1.pas(41): E2250 There is no overloaded version of 'Write' that can be called with these arguments
в подсказке высвечивается
procedure Write(AStream: TStream; ASize: TIdStreamSize = 0; AWriteByteCount: Boolean = False); overload; virtual;
делал так
rocedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
TCPClient.Connect;
while TCPClient.Connected and (i<100) do begin
TCPClient.IOHandler.Write(Buf,9,0);
TCPClient.IOHandler.ReadBytes(bufer,512);
i:=i+1;
end;
TCPClient.Disconnect;
end; |
сначала ответил, потом название темы увидел... 