Les sockets sous les applications console

Version imprimable

22/04/2009, 14h57
h4mz4

Les sockets sous les applications console

bonjours les amis , voila je suis un debuttant en programation , je cherche a cree un application console utilisant les socket sous delphi7 (non pas avec le composant indy) ; ce que je cherche exactement c de cree un client iRc sous dos :-) ca serais cool ! non ?:aie:
22/04/2009, 22h07
philnext

Oué ! Se serait super cool !

Par contre une application console n'est pas une appli DOS !
Je te conseille ICS (http://www.overbyte.be) qui est une biblio. IP avec des exemples d'appli. consoles...
23/04/2009, 10h00
Paul TOTH

Citation:

Envoyé par h4mz4

bonjours les amis , voila je suis un debuttant en programation , je cherche a cree un application console utilisant les socket sous delphi7 (non pas avec le composant indy) ; ce que je cherche exactement c de cree un client iRc sous dos :-) ca serais cool ! non ?:aie:

et quelle est la question ? :)
23/04/2009, 14h00
philnext

Citation:

Envoyé par Paul TOTH

et quelle est la question ? :)

Mais enfin, Paul, sa question est pourtant claire, c'est :

Citation:

ca serais cool ! non ?:aie:

J'y ai d'ailleurs répondu par :

Citation:

Oué ! Se serait super cool !

Moi quand je peux aider, je n'hésite pas...

ok les amis vous me faite rire :-D
ma question cest comment faire ajouté une socketclient a une application consol ???
:aie:
voissi mon sript :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 program Project1; uses Forms, ScktComp, SysUtils; //{$R *.res} {$APPTYPE CONSOLE} type Client= TClientSocket; var client1:client; begin client1.Port:=6667; client1.Host:='127.0.0.1'; client1.Active:=true; client1.Open; readln; // application.Initialize; // Application.Run; end.

28/04/2009, 22h41
h4mz4

ps : je ne veut utilisez aucunne bibliotheque :aie:
29/04/2009, 09h27
Reisubar

Juste une remarque : le mode console de Windows n'est PAS le DOS. Les applications consoles restent uniquement exécutables sous Windows, donc l'intérêt de ton outil sera un peu limité, sauf pour les gens qui ne supportent pas les icônes sous Windows...
29/04/2009, 10h05
h4mz4

merci pour votre remarque
ps : quant jai dit sous dos (je veut dir une application consol )
comme tu m'a dit une application sans fenetre,
mon but c'est de gagnier un peut d'espace car ma peuttite application n'a pas desoin de fenetre alors pour quoi metre une ?

es qu'il a une perssonne qui peut correcte mon script ?

-----------------------------------------------------------------------
je suis desolez pour mes faute..............
29/04/2009, 10h40
Linkin

Déjà, il manque la création de l'objet (et la libération).

Ensuite, essaie d'abord de faire marcher ton application en mode fenetré, ça aidera beaucoup à débugguer, une fois cela fait, le passage en mode console sera assez simple.
29/04/2009, 14h35
Paul TOTH

si tu ne veux pas de fenêtre, il suffit de ne pas en mettre, mais ce n'est pas pour cela qu'il faut faire une application console qui va crée une fenêtre...console :)

sur un projet classique, supprime Unit1 et tu as une application Windows sans fenêtre :)

sinon tu peux utiliser l'API Winsock directement

Citation:

Envoyé par h4mz4

merci pour votre remarque
ps : quant jai dit sous dos (je veut dir une application consol )
comme tu m'a dit une application sans fenetre,
mon but c'est de gagnier un peut d'espace car ma peuttite application n'a pas desoin de fenetre alors pour quoi metre une ?

es qu'il a une perssonne qui peut correcte mon script ?

-----------------------------------------------------------------------
je suis desolez pour mes faute..............

Lorsque l'on est débutant, on ne commence pas avec les composant TCP/IP avant il faut connaitre l'instanciation d'un objet (Create, Free), les gestionnaires d'évèmenent (OnConnect par exemple), savoir qu'une application c'est avant tout une boucle perpétuelle (le fameux run) ...

tu peux le tester avec le chat fourni sur CD de Delphi 5 (celui de 6 est moins pratique)

Code:

1
2
3
4
5
6
7
8
9
10
11
program Client;
 
uses
  ClientSocketClasses in 'ClientSocketClasses.pas';
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.Run;
end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
unit ClientSocketClasses;
 
interface
 
uses Windows, Messages, Classes, SysUtils, ScktComp;
 
type
  TClientApplication = class(TObject)
  private
    FSocket: TClientSocket;
    FStream: TStream;
    procedure OnConnectEventHandler(Sender: TObject; Socket: TCustomWinSocket);
  public
    destructor Destroy(); override;
 
    procedure Initialize();
    procedure Run();
  end;
 
function Application(): TClientApplication;
 
implementation
 
{ TClientApplication }
 
{ TClientApplication - Singleton }
 
var
  _Application: TClientApplication = nil;
 
function Application(): TClientApplication;
begin
  if not Assigned(_Application) then
    _Application := TClientApplication.Create();
 
  Result := _Application;
end;
 
{ TClientApplication - Constructeurs }
 
destructor TClientApplication.Destroy();
begin
  if Assigned(FStream) then
  begin
    FStream.Free();
    FStream := nil;
  end;
 
  if Assigned(FSocket) then
  begin
    FSocket.Free();
    FSocket := nil;
  end;
 
  inherited Destroy();
end;
 
{ TClientApplication - Méthodes Publiques }
 
procedure TClientApplication.Initialize;
begin
  FSocket := TClientSocket.Create(nil);
  FSocket.Port := 6667;
  FSocket.Host := '127.0.0.1';
  FSocket.ClientType := ctBlocking;
  FSocket.OnConnect := OnConnectEventHandler;
  FSocket.Open();
end;
 
procedure TClientApplication.Run;
var
  Msg: TMsg;
  Terminated: Boolean;
  ReadText: string;
  WriteText: string;
begin
  Terminated := False;
 
  SetLength(ReadText, 1024);
  repeat
    WriteText := FormatDateTime('YYYY-MM-DD HH:NN:SS:ZZZ', Now());
    FStream.Write(WriteText[1], Length(WriteText));
 
    if FStream.Read(ReadText[1], Length(ReadText)) > 0 then
      Terminated := Pos('QUIT', ReadText) > 0;
  until Terminated;
end;
 
{ TClientApplication - Méthodes Privées }
 
procedure TClientApplication.OnConnectEventHandler(Sender: TObject; Socket: TCustomWinSocket);
begin
  FStream := TWinSocketStream.Create(Socket, 1000);
end;
 
initialization
 
finalization
  if Assigned(_Application) then
  begin
    _Application.Free();
    _Application := nil;
  end;
 
end.

29/04/2009, 23h50
h4mz4

meci infiniment les amis .......
desolez pour le retard , (problemme de connection)

-----------------------------------------------------------------------
quant je vois ........je suis un debutant....

program Project1;
j'ai utiliser l'unité 'ClientSocketClasses.pas' mais elle m'afiche sans arret la date :aie:
comment je peut utilise ce client pour envoyez le texte que je veut ???
comme dans les socket client sendstring...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 uses Forms, ClientSocketClasses in 'ClientSocketClasses.pas'; var socket1:TClientApplication; {$R *.res} begin socket1:=TClientApplication.Create; socket1.Initialize; socket1.Run; Application.Initialize; Application.Run; end.

30/04/2009, 10h33
ShaiLeTroll

Tu n'as pas lu le code !

Il est inutile d'avoir un socket1 dans le DPR, tu as déjà un singleton (voir design patterns) qui s'appelle Application, lit bien l'unité ClientSocketClasses qui remplace TOTALEMENT l'objet Application: TApplication de l'unité Forms par un autre objet Application: TClientApplication ... si ton application doit être le plus discrète que possible, tu as tout ce qu'il faut (on est pas loin de faire un service ... mais quand tu seras un débutant avancé ... :mouarf:)

Lit la méthode Run de l'unité ClientSocketClasses, tu verras pourquoi cela envoi la Date environ toutes les secondes (1000 milli-secondes ...)