Chat i inne

0

Witam!Zrobilem program cos w stylu czata na podane ip laczy sie z tym ip i jesli gosc mam moj program to mozna rozmawiac. jak zrobic by moj program szukal adresow ip ktore posiaqdaja moj program ?

o co tu dokladnie chodzi?blad:

Access violation at address0044AC2C in module 'Project1.exe'. Read
of address FFFFFFFF.

gdzieś tamw gotowcach byl taki temat :Jak przesuwać myszą płynnie komponenty po formie? i pisalo by troche pokombinowac jak komus sie to przyda to sie troche pobawilem:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F021, 0);//przechodzenie do paska
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F039,0);//rozciaganie na cala forme
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F065, 0);//znikanie
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F199, 0);//wstrzymanie komputera
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND,$F000, 0);//jesli klikaniesz na jakas
//czesc buttona to kursor sam sie ustawia na srodku

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND,$FF172, 0);//niby wejscie do dosa

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND,$F001, 0);//rozciaganie buttona
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND,$F008, 0);//tez rozciganie buttona
end;

wie ktos moze jak poprzez ip wysylac do siebie obraz z image?

[i]Od modelatora: na następny raz 3 z 4 postów pod sobą zostaną skasowane, proszę pisać pytania w jednym topicu...[/i]

0

Jak masz stałe to niech się łączą na ciebie. ;-)

0

a jak nie mam?!tu nie chodzi o jakis serwer tylko o nie zalezne polaczenia

1 użytkowników online, w tym zalogowanych: 0, gości: 1