| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
MuMiN
@administrator
Posty: 345
Dołączył: 20 Mar 2004
Skąd: Kielce
|
|
| Powrót do góry |
|
 |
vear
@administrator
Posty: 826
Dołączył: 19 Mar 2004
|
|
| Powrót do góry |
|
|
NeRoK
#moderator
Wiek: 31
Posty: 570
Dołączył: 29 Lip 2004
Skąd: Wolbrom
|
|
|
| |
|
nie MuMin to ja sam pisz?.
Interesuje si? tym od 3 lat 
Ps nie ma sprawy....
#EDIT
MuMin jak piszesz, to Ci mog? pomóc 
Postaram si? co? napisa?. dalej....
Ps: Jestem Ch?tny !
Ps2: vear jak z t? rang? +programmer 
Ps3: jakie? 2 miechy temu napisa?em program to ??czenia kompów...
Tylko nie sko?czy?em serwera i wykonywania polece?  Je?eli chcecie udost?pniam kody:
| Kod: |
{
Program by: NeRoK
~~~~~~~~!!~~~~~~~~
}
unit klient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, StdCtrls, ExtCtrls, ToolWin, Sockets;
type
TForm1 = class(TForm)
status: TListBox;
Klient: TTcpClient;
Pnarzedzi: TToolBar;
Panel: TPanel;
send: TButton;
polecenie: TEdit;
ToolButton1: TToolButton;
IP: TEdit;
ImageList1: TImageList;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
login: TLabel;
user1: TRadioButton;
user2: TRadioButton;
RadioButton1: TRadioButton;
port: TEdit;
server: TTcpServer;
mojip: TLabel;
procedure ToolButton1Click(Sender: TObject);
procedure KlientConnect(Sender: TObject);
procedure KlientDisconnect(Sender: TObject);
procedure KlientError(Sender: TObject; SocketError: Integer);
procedure KlientSend(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
procedure FormCreate(Sender: TObject);
procedure serverAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure sendClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//-----------------------Klient.pas --------------------------//
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Klient.RemoteHost:=IP.Text;
Klient.RemotePort:=port.Text;
Status.Items.Add('-> Wywolywanie polonczenie z:' + ip.text);
server.LocalHost := mojIp.Caption;
server.LocalPort := '4356' ;
Klient.Connect;
end;
procedure TForm1.KlientConnect(Sender: TObject);
begin
Status.Items.Add('-> Polonczony z Serwerem:' + ip.text);
end;
procedure TForm1.KlientDisconnect(Sender: TObject);
begin
Status.Items.Add('-> Rozlonczony z:' + ip.Text);
end;
procedure TForm1.KlientError(Sender: TObject; SocketError: Integer);
begin
Status.Items.Add('-> Wystopil blad w probie polonczenia z:' + ip.text);
end;
procedure TForm1.KlientSend(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
Status.Items.Add('-> Polecenie:' + polecenie.text + 'Wyslane!');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
sport : string;
sip : string;
begin
Status.Items.Add('-> Witaj! PATH uruchomiony gotowy do pracy!');
sport:=InputBox('PORT WEJ?CIA','Podaj port:','PORT');
login.caption:='PORT: ' + sport;
sip:=InputBox('IP','Witaj!, ' + sport +' Podaj swoje Ip','IP');
mojip.caption := sip;
end;
procedure TForm1.serverAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
Status.Items.Add('-> Serwer zaakceptowal polonczenie!');
end;
procedure TForm1.sendClick(Sender: TObject);
begin
Klient.Sendln(polecenie.text);
end;
end.
|
Nie wiem jak zrobi? odebranie wiadomo?ci na serverze 
mniejszy problem by? by z wykonywaniem polece?
_________________
  |
|
| Powrót do góry |
|
|
MuMiN
@administrator
Posty: 345
Dołączył: 20 Mar 2004
Skąd: Kielce
|
|
|
| |
|
No w?asnie ja jeszcze nic nie pisze, narazie za?atwi?em i obgada?em teorie z osobami które sie na tym znaj? Mo?emy cos zaczac pisa? jak znasz C++, bo Delphi jest ma?o czytelne, zamiast begin i end wole klamerki {} A jak juz bysmy to pisali to najlepiej w winapi, patch zajmowa? by mniej miejscal, niz napisany z wykorzystaniem VCL.
_________________
Airline Tycoon Hangar - ogromny serwis o Airline Tycoon!
 |
|
| Powrót do góry |
|
|
NeRoK
#moderator
Wiek: 31
Posty: 570
Dołączył: 29 Lip 2004
Skąd: Wolbrom
|
|
|
| |
|
Fakt, ale ja c/c++ nie umie ;( planowalem pod koniec wakacji sie uczyc...
a ja wole begin i end , przykro mi...
ale jak co to ci pomoge.....
_________________
|
|
| Powrót do góry |
|
|
MuMiN
@administrator
Posty: 345
Dołączył: 20 Mar 2004
Skąd: Kielce
|
|
| Powrót do góry |
|
|
Locust
^przyjaciel
Wiek: 38
Posty: 171
Dołączył: 20 Mar 2004
Skąd: K?ty
|
|
|
| |
|
ja mówie, ?e te? mam podstawy w c++ i delphi, i te? mówi?em ?e mam dobrego qumpla, który zadeklarowa? ?e mi pomo?e...
_________________
<b>Polskie Centrum Airline Tycoon</b>
http://airline.gry-online.pl/ |
|
| Powrót do góry |
|
|
MuMiN
@administrator
Posty: 345
Dołączył: 20 Mar 2004
Skąd: Kielce
|
|
| Powrót do góry |
|
|
Locust
^przyjaciel
Wiek: 38
Posty: 171
Dołączył: 20 Mar 2004
Skąd: K?ty
|
|
|
| |
|
ale co i jak? najpierw napisz dok?adnie jak sobie to wyobra?asz...
_________________
<b>Polskie Centrum Airline Tycoon</b>
http://airline.gry-online.pl/ |
|
| Powrót do góry |
|
|
MuMiN
@administrator
Posty: 345
Dołączył: 20 Mar 2004
Skąd: Kielce
|
|
| Powrót do góry |
|
|
Locust
^przyjaciel
Wiek: 38
Posty: 171
Dołączył: 20 Mar 2004
Skąd: K?ty
|
|
| Powrót do góry |
|
|
Andrew_wojownik
Kolekcjoner samolotów
Posty: 975
Dołączył: 01 Maj 2004
Skąd: Katowice
|
|
|
| |
|
D?ugo to b?dzie trwa?. W jakim j?zyku programowania to jest napisane?? Bo jak turboposkalu to si? przy??cze (to napewno niejest turbo pascal). Pozatym fajny projekt.
_________________
Tani hosting serwerów VPS |
|
| Powrót do góry |
|
|
vear
@administrator
Posty: 826
Dołączył: 19 Mar 2004
|
|
| Powrót do góry |
|
|
Andrew_wojownik
Kolekcjoner samolotów
Posty: 975
Dołączył: 01 Maj 2004
Skąd: Katowice
|
|
| Powrót do góry |
|
|
NeRoK
#moderator
Wiek: 31
Posty: 570
Dołączył: 29 Lip 2004
Skąd: Wolbrom
|
|
|
| |
|
C - jak sie nie myle albo c++
_________________
|
|
| Powrót do góry |
|
|
|
|
|
