Главная страница
    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.009 c
1-1207151915
Кодер
2008-04-02 19:58
2009.01.25
Курсор и блокировка формы


2-1229183526
gulya
2008-12-13 18:52
2009.01.25
база данных в Delphi


2-1228923689
Djels
2008-12-10 18:41
2009.01.25
Turbo Pascal


2-1228816761
Nameziz
2008-12-09 12:59
2009.01.25
Потоки


9-1112987903
POL
2005-04-08 23:18
2009.01.25
С модэлирую 3D модели типа бесплатно





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский