Постоянный сокет сервер и клиент[по просьбам форумчан]

[max95]

Здравствуйте, извините что не мог рассказать о сокет сервере раньше(дела дела дела).
Увидев в личке сообщения : forumrulez*а и Let4ik_Rusiia. Сразу создал тему о сокетах.(Им отдельное спс).
Данный урок расскажет как сделать постоянно принимающий сокет сервер. сервер был получен из рук в руки от vGhost -->> огромное спс.

Шаг1) Создаём сервер UDP
Создаём функцию и в функции пишем вот этот код, обязательно поставить РАБОТАТЬ В ФОНЕ, нельзя ставить вызывать при старте

Скрытый текст:

$ipad = 'айпи';
$port = 'порт';
$Socket = Socket_Create(AF_INET, SOCK_DGRAM, GetProtoByName('udp'));
If($Socket === False)
{Exit(1);}
If(!Socket_Bind($Socket, $ipad, $port))
{
    Socket_Close($Socket);
   Exit(1);
}
   While(True)
{

    Socket_RecvFrom($Socket, $RData, 65535, 0, $ClientIP, $ClientPort);
 // В этом месте  пишем что будет делать сервер после приёма данных пример ->
 If( $RData == 0){
MessageBox("сервер принял цифру 0", "сообщение");}

////////////////////////////////
    If($RData === FALSE)
    {
    Continue;
    }
    ElseIf(StrLen($RData) === 0)
    {

        Continue;
    }

} 

Дополнения к серверу(улутшения).
Если вы не хотите указывать ip aдрес: программа укажет за вас, проверит наличие интернет соединения,
в случае ошибки попросит включить интернет.
Данный код вставлять в Создание

Скрытый текст:

$memo = c("memo1"); // в memo1 будет отображаться тексты - интернет работет или интернет не работает
$memo->text = '';
$host = 'google.com';
//переменная $ip будет содержать ip адрес.
$obj = new COM ('winmgmts://localhost/root/CIMV2');
$res = $obj->ExecQuery('SELECT * FROM Win32_PingStatus WHERE Address = "' . $host . '"');

ForEach($res AS $ping)
{
    If($ping->StatusCode === 0)
    {
        If(StrToLower($host) == $ping->ProtocolAddress)
        {
            $memo->text .= $host . " is responding\n";
        }
        Else
        {}
        $memo->text .= "интернет работает";
          $ip = $_SERVER[IP_ADDRESS];
         //  можно занести в переменную или вывести в едит1, как вам удобно!
           }
    Else
    {
        $memo->text .="интернет не работает";
MessageBox("Подключите интернет и перезапустите", "Нет интернет соединения");
app::close();/// в этом случае программа закроется если нет интернета!
    }
} 

Шаг 2) Клиент

Скрытый текст:

$mess ="текст";// в данной переменной текст который нужно отправить!
$apk = "айпи сервера";
$kport = "порт сервера";
$sock = Socket_Create(AF_INET, SOCK_DGRAM, GetProtoByName('udp'));
socket_connect($sock, $apk, $kport);

socket_write($sock, $mess);//отправляем
socket_close($sock); 

Код так же помещаем в функцию и ставим работать в фоне.
Для тех кто в танке

Для самых самых ,как вызвать функцию, пример: название(); - server();

[forumrulez]

Спасибо конечно но я уже разобрался, а вот за "Дополнение" отдельное спасибо

[vGhost]

Не помешает поправить пару мелочей

обязательно поставить РАБОТАТЬ В ФОНЕ

MessageBox("сервер принял цифру 0", "сообщение"); 

- Не в коем случае не используйте в фоновых ф-ях процедуры типа alert, pre, echo, MessageBox. Это может привести к совершенно неожиданным результатам в работе программы.

        If(StrToLower($host) == $ping->ProtocolAddress)
        {
            $memo->text .= $host . " is responding\n";
        }
        Else
        {} 

Это в коде совершенно лишнее, если вам надо было только проверить интернет.

[Simple]

Супер. Если в локальной сети будет работать как надо, то огромное спасибо!

[Карпатов Олег]

у меня уже давно вопрос..
возможно ли передать файл таким образом?
точнее как это сделать?

[bwc]

Вопрос: как увеличить размер буфера для данных ?

[Карпатов Олег]

хех.. решил сделать удаленную выключалку))
рез-тат фаервол блокнул..
но вот что интересно, мой не блокнул.. а стандартный виндовский на виртуалке блочит

[max95]

Не помешает поправить пару мелочей

- Не в коем случае не используйте в фоновых ф-ях процедуры типа alert, pre, echo, MessageBox. Это может привести к совершенно неожиданным результатам в работе программы.


Это в коде совершенно лишнее, если вам надо было только проверить интернет.

Забыл)) надо было подправить спс.

[max95]

bwc

Хотите файл передать?

[roxblnfk]

Вопрос: как увеличить размер буфера для данных ?

попробуйте socket_set_option
в качестве параметра optname: SO_SNDBUF и SO_RCVBUF
сам пока не пробовал, нужды не было

[Карпатов Олег]

Как передать файл на другой ПК ?

[max95]

Вот в этом сама и жо*а. Я не могу доделать свой Virtual Scout. Т.к не получается организовать передачу через сокеты.
Чисто теоретически пытался отправить буфер но сервер выдавал ошибку(

[Карпатов Олег]

Вот в этом сама и жо*а. Я не могу доделать свой Virtual Scout. Т.к не получается организовать передачу через сокеты.
Чисто теоретически пытался отправить буфер но сервер выдавал ошибку(

можно заливать файл по фтп и потом сервером скачивать его..
но это получается в двойне работать, а это долго..

[bwc]

Хотите файл передать?

нет, хотел передать массив размером 2048 kb он на отрез отказывается...

[bwc]

Вот в этом сама и жо*а. Я не могу доделать свой Virtual Scout. Т.к не получается организовать передачу через сокеты.
Чисто теоретически пытался отправить буфер но сервер выдавал ошибку(
можно заливать файл по фтп и потом сервером скачивать его..
но это получается в двойне работать, а это долго..

можно просто сделать папку шара (она будет как буфер обмена в локальной сети), и по ее средствам передавать файлы друг другу...

[max95]

можно заливать файл по фтп и потом сервером скачивать его..
но это получается в двойне работать, а это долго..

Вот поэтому, я сразу отказался.
Представ те скрин делается минимум 3 сек + отправка 4 сек = 7с + скачать и отобразить. = программа г.

[Карпатов Олег]

Вот поэтому, я сразу отказался.
Представ те скрин делается минимум 3 сек + отправка 4 сек = 7с + скачать и отобразить. = программа г.

всего из за этого?
щас vGhost придет, скажет как сделать

[forumrulez]

х, лучше не ждать vGhost а на прямую ему вопросы задавать

[roxblnfk]

чё вы тут тупите, неужели такая проблема передать файл сокетами? *<|:-]

[Карпатов Олег]

х, лучше не ждать vGhost а на прямую ему вопросы задавать

я же не только для себя стараюсь, я хочу чтоб все узнавали как это )

[Карпатов Олег]

чё вы тут тупите, неужели такая проблема передать файл сокетами? *<|:-]

видимо да, раз мы незнаем как это..
не просвятишь?

[Рома]

Что то не получается, сделал все как написал max95... запускаю клиент/сервер, сообщение отправляется серверу, но выдает ошибку(ошибка сервера): 1-я строка неправильна(ip адрес), и потом еще куча ошибок...

[Карпатов Олег]

Что то не получается, сделал все как написал max95... запускаю клиент/сервер, сообщение отправляется серверу, но выдает ошибку(ошибка сервера): 1-я строка неправильна(ip адрес), и потом еще куча ошибок...

делай лучше по примеру sterwat''a http://community.develstudio.ru/showthread.php?t=2791
если тебе нужен постоянно слушающий сервер, позже скину свою модификацию

[Рома]

И по примеру sterwat'a тоже неполучается!!!!

[max95]

Щас выложу проект, а то вы уже говорите что сервер не пашет)

[roxblnfk]

видимо да, раз мы незнаем как это..
не просвятишь?

всё очень просто, нужно передавать по кусочку файла с указанием размера и [номера кусочка || оффсета в файле]
можно добавить контрольные суммы как кусочков так и файла целиком (хэш файла крайне желателен)

т.е. получается в самой простой форме:
1 коннектим
2 шлём инфу о файле: размер, кол-во и размер кусков
3 шлём куски
сервер всё принимает и собирает
пример если и буду делать то после НГ в лучшем случае и после января в худшем...

[Рома]

Щас выложу проект, а то вы уже говорите что сервер не пашет)

Буду благодарен.

[max95]

Вот скомпилированный сервер и клиент http://rghost.ru/35665918

Вот dvs проект сервера и клиента http://rghost.ru/35665958
почему могло не работать, вы подключили?
php_sockets.dll

да кстати почему же например у bwc сразу заработал?
Ответ: быть внимательным, и правильно скопипастить.

Да и roxblnfk, спс если сделаете передачу файлов)) и даже если не сделаете всё равно спс.

[malish]

хД..Щас все попрут чаты делать

[Maltazar]

Включаю сервер. При смене раскладки на клавиатуре на русский язык программа(клиент) зависает. Как исправить?

[Simple]

По теме передачи файлов через сокеты: курите документацию в сторону fsockopen

[forumrulez]

хД..Щас все попрут чаты делать

Не факт, новичкам будет сложновато в сокетах, они еще столкнутся с динамическим IP, а продвинутые юзеры могут и через MySql сделать, притом pilip выкладывал в песочнице пример чата на MySql

[forumrulez]

Я думаю реализовать передачу файлов не так уж сложно, например у меня получается передавать dvs проекты не теряя их свойства, но при попытке отправки файла, после 2х мб,ошибка, надо поработать с фоновыми фичами, мб что и получится

[Рома]

Попробовал с другом установить связь, не получается.. че делать? или он не может устанавливать связь между компами?

[max95]

вот интересненько вышло!!! Кароче проблема если у вас динам ip(сменный) то подключиться не получиться,
Можете помочь forumrulez?, как такую фигню исправить!!! на вас вся надежда, вы хорошо разбираетесь в сокетах.
Проверял у кого статический апишник всё работало!

[forumrulez]

Ну смотрите при приеме, на сервере можете ип прописать 0.0.0.0, он будет принимать запросы от всех IP, а для отправки на динамический IP (из клиентской части), можете например при входе в программу(Например у вас стоит клиентская часть, а у вашего друга серверная часть, сервер будет принимать всё запросы(0.0.0.0), но для отправки нужно узнать IP сервера) записывать IP сервера в базу mySql например, т.е. создаёте специальный ID, записываете в базу ID и IP например ID=32, IP=192.168.0.1, затем при входе вы перезаписываете значение, например ID=32, IP=ипшник.
P.S. Нашел интересный класс розбивает файл на части, и записывает MD5 файла, можно попробовать с помощю foreach отправлять файлы по частям, а при приеме "Склеивать" всё в 1 файл
UPD:
А и еще я в сокетах нуб

[max95]

Щас буду пробовать загружать свой головной процессор))
P.S Если вы нуб в сокетах, то я тогда, можно считать о них даже не слышал.
если я правильно понял, то я так же хотелс только с айди( сервер отправлял на мой сайт типо такого 123432:192.168.... где 123432 был айди по которому клиент мог узнать айпи)


Сейчас займусь о результатах отпишусь)) уже стихами

[forumrulez]

Щас буду пробовать загружать свой головной процессор))
P.S Если вы нуб в сокетах, то я тогда, можно считать о них даже не слышал.
если я правильно понял, то я так же хотелс только с айди( сервер отправлял на мой сайт типо такого 123432:192.168.... где 123432 был айди по которому клиент мог узнать айпи)

Да Вам просто требуется реализовать при входе в программу запись нового IP к айдишнику

[max95]

да это уже давно понял, спс огромное.
Пытаюсь с сокетами научиться работать,вот и получается, что где то не допрочитал то не доглядел, с десь вот и дыры появляются!

[Карпатов Олег]

Я думаю реализовать передачу файлов не так уж сложно, например у меня получается передавать dvs проекты не теряя их свойства, но при попытке отправки файла, после 2х мб,ошибка, надо поработать с фоновыми фичами, мб что и получится

т.е. файл до 2х мб передается спокойно, так?