Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.01.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
WeTeR   (2008-12-10 12:13) [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 12:30) [1]


> их я использовать нехочу


Религия не позволяет ?)


 
tesseract ©   (2008-12-10 12:32) [2]


> Send(AcceptedSock,buffs,Len,0); но второй параметр  имеет
> тип либо Char либо String.


он вообще-то  Pchar - указатель, в него изображение и пихай.


 
Сергей М. ©   (2008-12-10 12:41) [3]


> пользуясь функцией Send(..); но второй
> параметр  имеет тип либо Char либо String


Вот штатная дельфийская декларация ф-ции Send в юните Winsock.pas (содержимое юнита не менялось со времен царя Гороха)

function send(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

Второй форм.параметр выделе жирным.
Где ты здесь узрел Char и String ?
Он вообще нетипизированный..


 
WeTeR   (2008-12-12 11:56) [4]

Большое спасибо открыли глаза) просто зациклился)
>Религия не позволяет ?)
Просто хочется поглубже понять все эти моменты, да и говорят что эти компоненты глючные хотя сам непробовал)


 
Сергей М. ©   (2008-12-12 14:02) [5]


> говорят что эти компоненты глючные


Говорят что в Москве кур доят)


 
ivak ©   (2008-12-12 22:10) [6]


> просто зациклился



for i := 1 to 2 do
i := 1;
?????


 
Palladin ©   (2008-12-12 22:17) [7]


> ivak ©   (12.12.08 22:10) [6]

ути пуси... ты хоть откомпилировать то пробовал?


 
ivak ©   (2008-12-12 23:24) [8]


> ути пуси...


опять твои "ути..."? ты может что-то ещё знаешь кроме этого??


 
Германн ©   (2008-12-13 01:02) [9]


> ivak ©   (12.12.08 23:24) [8]

Он то знает. А вот ты нет. Разве так пишут бесконечный цикл?
:)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.01.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.005 c
15-1228071771
{RASkov}
2008-11-30 22:02
2009.01.25
Выбор структуры приложения с использованием пакетов


3-1213161383
Инна
2008-06-11 09:16
2009.01.25
Как у компонента ADOConnect прописать путь до базы данных Access


2-1229332728
Андрей Ал.
2008-12-15 12:18
2009.01.25
Обновление данных


15-1227981351
Genty
2008-11-29 20:55
2009.01.25
Использование библиотек


3-1213733259
Ulti
2008-06-18 00:07
2009.01.25
БД paradox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский