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

Вниз

методы Socket и Connect (и т.п.) в модуле WinSock - как вызывать?   Найти похожие ветки 

 
Диман   (2001-11-28 12:14) [0]

Здравствуйте все! Сильно не пинайте, но недавно я задавал вопрос как использовать методы (?) socket и connect. Ответ-то дали, но малоинформативный... Порекомендовали порыться в ScktComp.pas. Порылся. Ничего не понял. Поэтому очень прошу - объясните поподробней, лучше примером, как эти самые методы использовать.
Задача у меня простая - не используя компоненты NM (потому что глюкавые и много памяти жрут) посылать/принимать стримы.
Пишу такое:
procedure TForm1.Button1Click(Sender: TObject);
var
WSAData:TWSAData;
MySockAddr:sockaddr_in;
descriptor:integer;
addr_int:Cardinal;
begin
//активизируем WSAData... даже не знаю надо ли? поправьте
WSAStartup($1010,WSAData);
//строчку с инетовским адресом преобразуем в integer-число...
addr_int:=inet_addr(PChar("169.254.0.15"));
//и прописываем в структуре sockaddr_in...
MySockAddr.sin_addr.S_addr:=addr_int;
MySockAddr.sin_port:=500;
//которая нужна для коннекта
// а дальше как-то нужно использовать socket для создания нового соединения
//потом connect(descriptor,MySockAddr,длина - длина чего?);
WSACleanUp;
end;
вот с socket и connect ничего и не ясно. Помогите пожалуйста простым исходником где это все используется.


 
Digitman   (2001-11-28 12:44) [1]

"Порылся. Ничего не понял"
Рылся ли ты вообще ? И пытался ли понять вообще ?

Эти строчки - из того же ScktComp.pas :


FSocket := socket(PF_INET, SOCK_STREAM, IPPROTO_IP); // создаем гнездо
WinSock.connect(FSocket, FAddr, SizeOf(FAddr)); //делаем попытку коннекта


Что же здесь непонятного ? Объясни, в чем проблема в понимании сего



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
7-57223
Русский
2001-11-12 14:23
2002.02.18
Компонент ButtonNew!


3-57005
nastuha
2002-01-18 09:50
2002.02.18
Пожалуйста помогите советом в реализации метакуба..


1-57111
Леонид
2002-02-01 14:10
2002.02.18
TTreeView


14-57201
vlad17
2001-12-20 17:17
2002.02.18
https


1-57040
Иванов Юрий
2002-02-01 11:53
2002.02.18
Дамы и Господа! Помогите! Как получить список директорий в директории





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