отправить изображение по сети [D7]
WeTeR © (2008-12-10 12:19:00)
Скажите пожалуйста я хочу отправить изображение по сети
пользуясь функцией 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:00) [1]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1228900436&n=18
Наверх 
ЧАТ |
Орешник |
|
