отправить изображение по сети

← →
WeTeR (2008-12-10 12:19) [0]

Скажите пожалуйста я хочу отправить изображение по сети пользуясь функцией Send(AcceptedSock,buffs,Len,0); но второй параметр имеет тип либо Char либо String.
А отправить в буфер изображение я могу только таким образом
Stream.Read(Buf,SizeOf(Buf)); получая информацию в типе byte
Использовать Sendbuf неполучается так как он встроеный метод в компонент Server.Socket или Klient.Socket а их я использовать нехочу
, предпочитаю делать так:

WSAStartup($101,DAta); {Инициализация библиотеки}
S:=Socket(AF_Inet,Sock_Stream,0); {Создаем сокет}
addr.sin_family:=PF_Inet;{Указываем семейство протоколов TCP}
Addr.sin_addr.S_addr:={Inet_Addr("192.168.200.217");{}Inaddr_any; {выбор адресса на усмотрение системы}
Addr.sin_port:=HTons(3030); {указываем порт}
FillChar(Addr.sin_zero,SizeOf(Addr.sin_zero),0); {заполняем некоторую область памяти заданным значением (sin_zero-нулями)}
if Bind(S,Addr,SizeOf(Tsockaddr))=Socket_Error then {Привязываем заданый сокет(S) к адрессу(Addr)}
begin
ShowMessage("Какая то ошибка");
end;
Listen(S,SoMaxConn); {Переводим сокет в режим ожидания соеденения}

Что мне делать как перевести byte в Char или String, или как использовать Sendbuf не используя компонентов Server.Socket или Klient.Socket ?

← →
Сергей М. © (2008-12-10 13:00) [1]

http://delphimaster.net/view/2-1228900436/

отправить изображение по сети Найти похожие ветки