Trzybobry!
FAQ, FAQ, FAQ jest to w artykulach o Delphi (kurs pisania backdoorow)! Ale jesli jestesmy za leniwi...
-----ciach-----
OnFormCreate(czy jakos tak)
begin
ServerSocket.Port:=numer_portu;
ServerSocket.Active:=True;
end;
OnClientRead (czy jakos tak)
var
komenda:=ServerSocket.Socket.ReceiveText;
begin
if komenda='jakis tekst' then
begin
ShowMessage('Obiecuje, ze bede czytal FAQ!');
end;
end;
end.
-----ciach-----
Jest to najprostsza i najbardziej prymitywna metoda, ale w miare skuteczna, gdy potrzebujesz wykonac po stronie serwera proste operacje.
P.S.: Wszelkie literowki i pomylki w kodzie wynikaja z faktu, ze pisze z glowy, bo na uczelni nie posiadam Delphi (a po co studentom socjologii, dziennikarstwa lub politologii Delphi [???] ).
Pozdrawiam [cya] !!
DOPISANE
Racja lechu! Jeszcze wysylanie komendy!
Button1Click (czy cos)
begin
ClientSocket.Socket.SendText('jakis_tekst_co_jest_komenda');
end;