[Delphi] Wysyłąnie pakietu przez internet...

Cześć @LL

Jak zrobić coś takiego:

Jedna osoba - "KLIENT" - używa modemu...
JA mam STAŁY adres IP i jestem "SERWER".

KLIENT włącza komputer z windowsem, a mały program, startujący wraz z systemem, czeka na połączenie z netem prez modem. Jak KLIENT się połączy internetem, programik ma WYSYŁAĆ do mnie na port, na którym czuwa mój programik, pakiet/y, zawierające adres IP komputera KLIENTA, a mój program ma je interpretować i dodać linię (z tym IP) do LISTBOX...

Chciałbym taki mechanizm zrobić, ponieważ osobie łączącej się przez modem za każdym razem przydzielany jest inny adres IP...od razu mówię, że to zostało uzgodnione z moim partnerem :-)

function Connected:boolean;
var
Flags: DWORD;
Connected: boolean;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;

Connected := InternetGetConnectedState(@Flags, 0);
end;

ta funkacja sprawdza połączenie - jeśli się połączyłeś możesz wywołać jakąć inną funkcję:

if(Connected) then
Send_MY_IP;

Popodzenia!

P.S. Możesz użyć np. Timera żeby sprawdzał co 5 sec połączenie i jeśli jesteś to wiesz....

w dooope i tu też się nie zalogowałem --- to już 2 post :-[

Dzięki ANONIM ( :-8 )...

Jak zrobić wysyłanie pakietu, zawierającego IP KLIENTA przez internet oraz interpretować te pakiety, wklejając odczytany IP do ListBoxa jako nowy item?

nie anonim tylko MrSquell!!!!

A może Sockety??? na 4p jest dużo rzeczy, info na ten temat...
Jeśli ie Socks to HTTP i PHP .... użyj w tym celu komponentu HTTPGet
Wszystko zależy od Twojej wyobraźni i od tego - do czego to Ci jest potrzebne...

a co do skryptu połączenia popełniłem jeden błąd(wstyd się przeznać )
Poprawny kod:

function Connected:boolean;
var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;

Result := InternetGetConnectedState(@Flags, 0);
end;

UWAGA do uses dodaj : WinInet

Pozdro!

P.S.
najprostrzy skrypt interpretujący powyższy ( ):

if(Connected) then
ShowMessage('Jestes polaczony z Netem!')
else
ShowMessage('Brak polaczenia z Netem!');

polecam TCP, poniewaz mozna sie tym łączyć ze wszystkim (TelNet,Putty,IRC,Chat)

Hmm...
A jak zrobić przez TCP obsługę pakietów (wysyłanie/odbieranie/interpretacja) :-)
Nigdy nie robiłem czegoś takiego...możebyśmy stworzyli taki moduł...wysyłania IP komputera w postaci pakietu oraz interpretacji...

No...opis działania umieściłem wyżej...pozostaje tylko zrobić :-) :d