ATNEL tech-forum

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-18T10:31:11+01:00

Może tu warto zajrzeć?

http://delphi.about.com/od/internetintr ... 20403a.htm

Statystyki: Napisane przez mirekk36 — 18 lip 2013, o 10:31

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-18T09:55:26+01:00

Hmmm.. A ma ktoś może jakiegoś śledzia?

Mam tu na myśli coś co w sumie nadawałoby się do działu rybnego

Jakiś program nawet w delphi, który radzi sobie z pakietami TCP?

http://4programmers.net/Delphi/INDY - tutaj jest przykład, ale jakoś to dziwnie rozwiązali, bo pakiet jest odbierany dopiero po rozłączeniu klienta, czyli żeby wysyłać strumień, musiałbym co chwilę go łączyć/rozłączać :/

Statystyki: Napisane przez mikandrzej — 18 lip 2013, o 09:55

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T23:55:04+01:00

mikandrzej napisał(a):

a czy przypadkiem w TCP nie jest tak, że Klient nawiązuje połączenie z serwerem, a po nawiązaniu komunikacja już jest w obie strony?

Oczywiście, że tak jest i jeśli KONIECZNIE zależy na takiej funkcjonalności to jasna sprawa że trza iść w TCP

mikandrzej napisał(a):

Oczywiście cały czas mówię o transmisji przez internet, bo przez LAN to żaden problem używać UDP

to dobrze rozumiem, jak mówiłem chciałem tylko zwrócić uwagę, że w UDP także można mieć informację zwrotną, a jak dobrze pomyśleć nad protokołem własnej komunikacji to nie stanowi to większego problemu.

Jeśli jednak nie chce się iść tą drogą to jak mówiłem zostaje TCP

Statystyki: Napisane przez mirekk36 — 17 lip 2013, o 23:55

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T22:23:30+01:00

Quote:

Tak, ale TYLKO jako odpowiedź na ten datagram który nadleciał (REPLY), a nie że ty sobie wymyślisz aby stworzyć nowy datagram, opatrzyć go TYLKO docelowym adresem IP - bo tak nie da rady (przynajmniej wprost) ...

No właśnie, a czy przypadkiem w TCP nie jest tak, że Klient nawiązuje połączenie z serwerem, a po nawiązaniu komunikacja już jest w obie strony?

W ten sposób jaki przedstawiasz, musiałbym cały czas wysyłać zapytania o dane do serwera, a to mnie nie satysfakcjonuje, gdyż nie byłoby płynności wtedy. Pewnie własnie o tym wspomniałeś tu:

Quote:

bo nie wprost to też dałoby radę ale zostawmy to.

Z tymi portami to jest taki problem, że iPlus blokuje WSZYSTKIE porty przychodzące, nie działa nawet port 80. Dlatego jestem zmuszony nawiązywać połączenie z urządzenia mobilnego, a nie stacjonarnego.

-- 8 minutach --

Oczywiście cały czas mówię o transmisji przez internet, bo przez LAN to żaden problem używać UDP

Statystyki: Napisane przez mikandrzej — 17 lip 2013, o 22:23

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T21:49:09+01:00

Może się to przyda. Napisałem kiedyś serwer TCP który służy do wyrzucania na konsole to co dostanie po sieci, używam go do wyświetlania logów z wielu maszyn w jednym miejscu. Do wysyłania po sieci można użyć netcata albo rsysloga.
Program został stworzony na podstawie poradnika "Beej's Guide to Network Programming"
http://beej.us/guide/bgnet/

main.cpp
[syntax=cpp]//main.cpp
#include "server.h"
#include

#define MYPORT 9090

int main(){

int rec,pid;
CServer s( MYPORT );
while(1){
pid = s.connect();
//std::cout << "pid: "<if(!pid)break;
}

//std::cout << "connected\n";
while(1){
rec = s.reciv();
if(rec>0){
std::cout << "rec: "<std::cout << s.buffer;
}else if(rec==-1){
break;
}
}
//std::cout << "exit!!!\n";
}[/syntax]

server.h
[syntax=cpp]//server.h
#include
#include

class CServer{
private:
int sockfd, new_sockfd, myport, backlog, yes, error, buffer_size;
unsigned int sin_size;
struct sockaddr_in my_addr;
struct sockaddr_in their_addr;
struct sigaction sa;
public:
CServer( int port );
~CServer();
char * buffer;
int connect();
void set_buffer_size( int size );
int reciv();
};[/syntax]

server.cpp
[syntax=cpp]//server.cpp
#include
#include
#include
#include
#include
#include

#include "server.h"

#define BACKLOG 5

void sigchild_handler( int s ){
while( wait(NULL)> 0);
}

void CServer::set_buffer_size( int size ){
buffer_size = size;
}

CServer::~CServer(){
if(!buffer) delete[] buffer;
}

CServer::CServer( int port ){
yes = 1;
myport = port;
error = 0;
backlog = BACKLOG;
buffer_size = 2048;
buffer = NULL;

if(( sockfd = socket( AF_INET, SOCK_STREAM, 0)) == -1){
error = 1;
}
if(!error) if( setsockopt( sockfd, SOL_SOCKET, SO_REUSEADDR, & yes, sizeof( int )) == -1){
error = 2;
}
if(!error) {
my_addr.sin_family = AF_INET;
my_addr.sin_port = htons( myport);
my_addr.sin_addr.s_addr = INADDR_ANY;
memset( &(my_addr.sin_zero), '\0', 8);
if(bind( sockfd, ( struct sockaddr *) & my_addr, sizeof ( struct sockaddr )) == -1){
error = 3;
}
}

if(!error) if(listen(sockfd, backlog) == -1){
error = 4;
}

if(!error) {
sa.sa_handler = sigchild_handler;
sigemptyset( & sa.sa_mask );
sa.sa_flags = SA_RESTART;
if(sigaction( SIGCHLD, & sa, NULL) == -1){
error = 5;
}
}
}

int CServer::connect(){
if(!buffer){
buffer = new char[buffer_size];
}
sin_size = sizeof(struct sockaddr_in);
if((new_sockfd = accept(sockfd, (struct sockaddr *) &their_addr, &sin_size)) == -1){
error = 1;
}
int pid = fork();

if( !pid ){
close(sockfd);
}else{
close(new_sockfd);
}

return pid; // jeśli zero - rodzic
}

int CServer::reciv(){
int rec;
if((rec = recv(new_sockfd, buffer, buffer_size - 1, 0)) == 0) {
buffer[0] = '\0';
close(new_sockfd);
return -1;
}
buffer[rec+1] = '\0';
if(rec==0)sleep(1);
return rec;
}[/syntax]

Statystyki: Napisane przez PROTON — 17 lip 2013, o 21:49

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T21:14:51+01:00

mikandrzej napisał(a):

A co to za różnica jaki port ? Już w Bluebooku

http://atnel.pl/mikrokontrolery-avr-jezyk-c.html

masz przykłady jak to uzyskać z pełnym powodzeniem od strony nawet mikrokontrolera więc chyba nie myślisz że ze strony PC'ta miałoby to stanowić jakiś problem

Quote:

Chodzi o to, ze z komorki jak przez internet wyslalem pakiet do komputera i doszedl, to jestem w stanie tez w druga strone?

Quote:

Jeszcze jedno. Ile on bedzie czekal na taka odpowiedz?

Tyle samo co gdybyś to robił przez TCP

Statystyki: Napisane przez mirekk36 — 17 lip 2013, o 21:14

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T19:44:10+01:00

No dobra, czyli jak mam odblokowany dajmy na to u uslugodawcy przychodzacy port tylko 21 i 80 to jestem w stanie po wyslaniu pakietu UDP z tego kompitera uzyskac odpowiedz z serwera UDP tak jak w przypadku TCP?

Chodzi o to, ze z komorki jak przez internet wyslalem pakiet do komputera i doszedl, to jestem w stanie tez w druga strone?

Jeszcze jedno. Ile on bedzie czekal na taka odpowiedz? Bo to wlasnie ta komorka docelowo ma odbierac dane

Wysłane z mojego GT-I9500 za pomocą Tapatalk 4

Statystyki: Napisane przez mikandrzej — 17 lip 2013, o 19:44

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T17:51:41+01:00

mikandrzej napisał(a):

Poza tym, czy aby nie jest możliwe, że jakiś pakiet może gdzieś zaginąć przy UDP? wiem, że o ile w LAN to raczej nie ma gdzie zginąć,

takie rzeczy to były w OWYM czasie, gdy wprowadzano pierwsze sieci komputerowe, oparte jeszcze na kablach BNC ... dawno i nieprawda

no ! ... może nie do końca nieprawda ponieważ oczywiście sam standard tej warstwy stosu nie zapewnia potwierdzeń to jednak w dzisiejszych sieciach w tym także w internecie - trzeba by się bardzo postarać żeby gubić pakiety

mikandrzej napisał(a):

Myślałem, że to jest taka specyfika TCP

no to właśnie źle myślałeś bo na pakiet UDP można odpowiedzieć zwrotnie i dotrze ta odpowiedź dokładnie do nadawcy jak w TCP

Tylko że ....

trzeba wiedzieć o jednym - oczywiście że tzw Broadcasty - nie przedostaną się przez routery bo wszystkie wcześniej czy później po kilku tzw "chop'ach" zostaną wybite w pień

ale brodacastami to się można bawić w LAN'ie

jeśli zaś chcesz w całej sieci w tym w internecie to WYSTARCZY zaadresować datagram i JUŻ to wsio ...

a po drugiej stronie użyć opcji REPLY, co spowoduje że z datagramu zostanie wykorzystana cała informacja zwrotna o nadawcy, jego IP i port ale co ważne MACADDRESS ... i informacja zwrotna potulnie dofrunie do nadawcy

Statystyki: Napisane przez mirekk36 — 17 lip 2013, o 17:51

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T16:16:23+01:00

Jak to zrobić z UDP? tylko dlatego przesiadłem się na TCP żeby był ruch w 2 strony. Mam w domu stałe zewnętrzne IP i mogę z domem nawiązać połączenie.

Myślałem, że to jest taka specyfika TCP/UDP

Poza tym, czy aby nie jest możliwe, że jakiś pakiet może gdzieś zaginąć przy UDP? wiem, że o ile w LAN to raczej nie ma gdzie zginąć, to w internecie jednak. W dodatku ostatecznie chcę sterować z telefonu suwakami na komputerze, a zwrotny ruch potrzebny mi, żeby zaaktualizować kontrolki w telefonie.

Statystyki: Napisane przez mikandrzej — 17 lip 2013, o 16:16

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T16:03:38+01:00

mikandrzej napisał(a):

TCP musi być ze względu właśnie na typ połączeniowy, tylko tak moge uzyskać połaczenie w dwie strony przy poblokowanych portach za NATem

W dwie strony nie uzyskasz - tzn z domciu nawiążesz połączenie gdzieś ze światem i będziesz miał po prostu ruch zwrotny zapewniony

ale po UDP można dokładnie tak samo

nie żebym cię na siłę przekonywał do UDP ale podpowiadam

Statystyki: Napisane przez mirekk36 — 17 lip 2013, o 16:03

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T15:17:09+01:00

Generalnie to ja sobie przepisuje z delphi do C++.

Borland 6 - indy już wcześniej zainstalowałem, teraz właśnie męczę komponent IdTCPServer.

UDP już się bawiłem
TCP musi być ze względu właśnie na typ połączeniowy, tylko tak moge uzyskać połaczenie w dwie strony przy poblokowanych portach za NATem

Potestowałem komponent ServerSocket i się okazuje, ze to on czasami bzdury odbiera, w sensie że nie odbiera jako cały pakiet tylko sobie czasami obcina w jednym pakiecie końcówkę, a dodaje ją do nastepnego, więc tu pies pogrzebany

-- 37 minutach --

Mirku, powiedz mi jak w komponencie INDY odczytywać na bieżąco dane? teraz mam tak, że dopiero jak się klient rozłączy to wskakuje mi cały bufor...

Statystyki: Napisane przez mikandrzej — 17 lip 2013, o 15:17

Re: Borland C++ Builder/Delphi + ServerSocket - obróbka dany

2013-07-17T14:58:31+01:00

która to wersja ? Buildera ?

przede wszystkim poleciłbym ci na początek zabawę ale nie w TCP do takich celów a UDP. Pytam która wersja bo w wielu powinny być dostępne fajne komponenty INDY 9.x

komunikacja bezpołączeniowa jest łatwiejsza do realizacji bez udziału wątków, a TCP czyli połączeniowa .... no można pojechać trochę na zdarzeniach ale to docelowo nie będzie działać za dobrze ...

Co do kodu nie pomogę bo chociaż Borland mi bliski to jednak ja męczyłem Delphi a tu się jeszcze nie odnajduję

Statystyki: Napisane przez mirekk36 — 17 lip 2013, o 14:58

Borland C++ Builder/Delphi + ServerSocket - obróbka danych

2013-07-17T13:52:07+01:00

Witam, chcę sobie napisać prosty soft, który ma obsługiwać dane przychodzące w pakietach TCP.

Pierwszy program (serwer TCP) ma komponent ProgressBar1, na którym chcę wyświetlać dane, które przychodzą w postaci tekstu

Code:

VALUE=xxx;

.
Drugi program ma być jego klientem. W nim mam suwak, który w zdarzeniu OnSuwakChange ma wysyłać przez TCP pakiety z aktualną wartością suwaka.

Generalnie transmisja działa, pasek się porusza, ale problem pojawia się gdy zacznę szybciej poruszać suwakiem, wtedy program dostaje jakby sklejony pakiet, np.

Code:

VALUE=34;VALUE=23

i wyrzuca wyjatkiem jakbym chciał zamieniać "VALUE=xxx" na tym integer.
Aktualna wersja w ogóle pokazuje, że przekroczyłem zakres operatora "[]" i już nei wiem co z tym zrobić..

[syntax=cpp]void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{

String temp = Socket->ReceiveText();
String command, value;
int value_i;
command = temp;
command.SetLength(6);
if (command == "VALUE=")
{
value = temp;
if(value.Length() > 15)
value.SetLength(15);
Button1->Caption = value.Length();
String end_t = value[value.Length()];
while (end_t != 0 && (end_t <= '0' || end_t >= '9'))
{
value.SetLength(value.Length() - 1);
end_t = value[value.Length()];
}
value.Delete(1,6);
if (value.Length()>0)
{
value_i=value.ToInt();
ProgressBar1->Position = value_i;
}
}
}[/syntax]

Jak najlepiej coś takiego obsłużyć? Dodam, że program nic konkretnego nie robi, tylko po prostu uczę się korzystać z protokołu TCP

Jakby ktoś miał zupełnie inną wizję takiego programu to śmiało pisać

Statystyki: Napisane przez mikandrzej — 17 lip 2013, o 13:52