-
Скажите пожалуйста я хочу отправить изображение по сети пользуясь функцией 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 ?
-
> их я использовать нехочу
Религия не позволяет ?)
-
> Send(AcceptedSock,buffs,Len,0); но второй параметр имеет > тип либо Char либо String.
он вообще-то Pchar - указатель, в него изображение и пихай.
-
> пользуясь функцией Send(..); но второй > параметр имеет тип либо Char либо String
Вот штатная дельфийская декларация ф-ции Send в юните Winsock.pas (содержимое юнита не менялось со времен царя Гороха) function send(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall; Второй форм.параметр выделе жирным. Где ты здесь узрел Char и String ? Он вообще нетипизированный..
-
Большое спасибо открыли глаза) просто зациклился) >Религия не позволяет ?) Просто хочется поглубже понять все эти моменты, да и говорят что эти компоненты глючные хотя сам непробовал)
-
> говорят что эти компоненты глючные
Говорят что в Москве кур доят)
-
> просто зациклился
for i := 1 to 2 do
i := 1;
?????
-
> ivak © (12.12.08 22:10) [6]
ути пуси... ты хоть откомпилировать то пробовал?
-
> ути пуси...
опять твои "ути..."? ты может что-то ещё знаешь кроме этого??
-
> ivak © (12.12.08 23:24) [8]
Он то знает. А вот ты нет. Разве так пишут бесконечный цикл? :)
|