Отправить картинку сокеты

[oteccc]

Как отправить картинку через сокеты?

[Stilet]

Смотря какие. Через WinAPI используя функцию send(). Через компоненты используя их методы того компонента, который выберешь.
И нужно еще знать куда отправлять по какому протоколу. HTTP это одно, SMTP другое. FTP третье. А если что-то нестандартное то вообще двадцать пятое.

[oteccc]

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

Смотря какие. Через WinAPI используя функцию send(). Через компоненты используя их методы того компонента, который выберешь.
И нужно еще знать куда отправлять по какому протоколу. HTTP это одно, SMTP другое. FTP третье. А если что-то нестандартное то вообще двадцать пятое.

как это сделать с помощью serversicket и clientsocket?

[Stilet]

Допустим картинка находится в файле. Тогда

f:=TFileStream.Create('file.jpg',fmOpenRead);
clientsocket.Socket.SendStream(f);
f.free;

Это можно написать где угодно, если уверен что в этом месте при выполнении коннект уже установлен.
А сервер при приеме в OnClientRead пропиши

var buf:array[1..1000] of byte;i:integer; f:TFileStream;
begin
f:=TFileStream.Create('file.jpg',fmOpenRead);
repeat
 i:=Socket.ReceiveBuf(buf,Length(buf));
 if i<>-1 then
  f.write(buf,i);
until i=-1;
f.free;
end;

Это если я не ошибаюсь. Давно с ним не работал.

[oteccc]

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

Допустим картинка находится в файле. Тогда

f:=TFileStream.Create('file.jpg',fmOpenRead);
clientsocket.Socket.SendStream(f);
f.free;

Это можно написать где угодно, если уверен что в этом месте при выполнении коннект уже установлен.
А сервер при приеме в OnClientRead пропиши

var buf:array[1..1000] of byte;i:integer; f:TFileStream;
begin
f:=TFileStream.Create('file.jpg',fmOpenRead);
repeat
 i:=Socket.ReceiveBuf(buf,Length(buf));
 if i<>-1 then
  f.write(buf,i);
until i=-1;
f.free;
end;

Это если я не ошибаюсь. Давно с ним не работал.

[Error] Unit1.pas(43): Undeclared identifier: 'Lenght'
что за ошибка?

[oteccc]

а нет все работает, я ошибся, спасибо помог

[Stilet]

Lenght и Length слова разные.
Не путай буквы.

[oteccc]

а как эту картинку в image1 вывести?

[Stilet]

Кажется есть возможность из стрима считать, но я не помню точно.
Зато Image.Picture.LoadFromFile существует.

[oteccc]

че то я не понял как на сервере ее принять?