Discussion :

[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 ?

[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...

[Paul TOTH]

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 ?

et quelle est la question ?

[philnext]

et quelle est la question ?

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

ca serais cool ! non ?

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

Oué ! Se serait super cool !

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

[h4mz4]

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

voissi mon sript :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[h4mz4]

ps : je ne veut utilisez aucunne bibliotheque

[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...

[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..............

[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.

[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

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..............

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[h4mz4]

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










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

[h4mz4]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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é ... )

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