tcpclient передача

[varelik]

Добрый день. Такой вопрос. Использую tcpclient для передачи строк и файлов. Строки передаются: tcpclient1.sendln(s); а вот с файлами беда.
Делаю примерно так:

p:byte;
f3: file of byte;
----------
while not eof(f3) do begin
read(f3,p);
tcpclient1.sendbuf(p,sizeof(p));
end;

Сам файл- pcx.
Подскажите в решении, плиз

[JoanM]

У меня есть программы, реализованные на этих tcp-компонентах. Давно я их писал и не помню точно, как там, да что, но точно могу сказать, что тебе стоит работать с потоками (TFileStream).
типо:

var
str:TFileStream;
begin
str:=TFileStream.Create('test.pcx',foOpenRead);
str.seek(0);
tcpclient.sendstream(str);

100% я коряво написал этот код, но суть передал.

Еще способ:

var
str:tStringList;
begin
str:=tstringlist.create;
str.loadfromfile('test.pcx');
str.text:=str.text+'ћ';
tcpclient.sendln(str.text);

Потом в сервере (Ttcpserver) нужно найти параметр, который отвечает за конечный символ, т.е. тот, до которого он будет считывать информацию от клиента. Опять же не помню, где там это, но если тебе очень нужно, могу написать пример на Delphi.
Функция приема у сервера вроде TSocket.Readln(переменная, 'ћ');

[BARNEY]

Подскажите... А от севера клиенту как передать строчку? например команду послал, сервер обработал и в конце выдал клиенту исполнено.

отсылаю так и принимаю так

procedure TForm1.btn1Click(Sender: TObject);
begin
idtcpclnt1.Socket.WriteLn('sss');
end;

procedure TForm1.idtcpsrvr1Execute(AContext: TIdContext);
var
str:string;
begin
  str:=AContext.Connection.Socket.ReadLn;
  mmo1.Lines.Add(str);

end;

[varelik]

чтото не работает через стрим, такое впеч. что не вся инфа передается

[JoanM]

Вот я у себя накорябал на скорую руку. Смотрите:

procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var
str,str2:tstringlist;
begin
str:=tstringlist.Create;
str2:=tstringlist.Create;
str2.Text:='То, что нужно отдать';
str.Text:=clientsocket.Receiveln('ћ');
if str.Text='command' then clientsocket.Sendln(str2.Text);
end;

Т.е. сервер при получении команды "command" во входящем сообщении отправляет клиенту буфер (текст) из str2.
Теперь рассмотрим получение клиентом. Пусть мы отправили серверу "command". Чтобы принять ответ, нам нужно в событии клиента OnReceive прописать:

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
var
str:tstringlist;
begin
str:=tstringlist.Create;
str.Text:=buf;
end;

И будет вам счастье!

А вообще вот что я вам скажу - не парьтесь с этими компонентами (к варелику относится) и юзайте INDY. Это и удобно, и надежно. Я только им пользуюсь, ощутив гемор TcpClient'а и сервера.
В случае с INDY надо делать по-другому. Там в сервере забивается список команд и ответов на них. Ну а суть приема/передачи примерно та же.

З.Ы. Не забываем за советы оставлять положительный отзыв обо мне.