Consolen Application & TClientSocket ?

[sk0r]

Guten Abend,

ich würde gerne eine Consolen Application schreiben,
welche sich mit dem IRC-Netzwerk verbindet.

Normalerweise arbeite ich mit dem TClientSocket auf GUI Ebene.
Bei einer Console kann man aber sowas natürlich nicht platzieren. :D

Ich habe schon versucht, einfach eine Variable als TClientSocket zu deklarieren
und dann die Events selbst zuzuweisen. Aber das wollte Delphi irgendwie nicht. :(

Desshalb frage ich euch:

Kann ich irgendwie trotzdem die Komponente benutzen? Oder muss
ich mich anderen Methoden bedienen? Wenn ja, welche würdet ihr empfehlen?

Ich würde mich über Hilfe freuen. :)

MfG: sk0r

[Zacherl]

Du kannst die Komponente zur Laufzeit erzeugen. Einfach als TClientSocket deklarieren und dann über Create erzeugen.

[Apollonius]

Aber dann musst du selbst die Nachrichten abfragen und kannst du kein einfaches readln() mehr benutzen. Kurz gefasst: Lass die VCL für dich arbeiten.

Falls du es dir dennoch nicht ausreden lassen willst, hier zeigt Sirius, wie es geht.

[Luckie]

Geht genauso wie ein Timer in einer Konsole benutzen:
http://www.michael-puff.de/Developer...n_Konsole.html

[dominikkv]

das hatte ich auch mal mit den Indys...
ich hab dann einfach eine klasse erstellt und IdHTTP und deren Ereignisse in dieser klasse deklariert.

[sirius]

@Luckie
Wo wird denn in deinem Programm ein Event bearbeitet? :gruebel:

[Luckie]

Delphi-Quellcode:

procedure NotifyEvent(Self: TMethodPointer; Sender: TObject);
begin
  writeln('yes');
  beep;
end;

Etwas unglücklich benannt.

[sirius]

Deine Prozedur-Methode :mrgreen: habe ich schon gesehen. Das ist sicherlich auch das, was du meintest: Aus einer simplen Funktion eine Methode machen.

Nur dir ist hoffentlich bewusst, dass dein Timer sie im Moment nicht auslöst. Dies geschieht derezit nur direkt:

Delphi-Quellcode:

for i := 1 to 5 do
begin
  sleep(500);
  writeln('warte ' + inttostr(i * 500) + 'ms...');
  NotifyEvent(p, T); // <-- hier wird die Prozedur ganz nomral aufgerufen
  //Der Timer ist völlig überflüssig
end;

So ist es für den Timer:

Delphi-Quellcode:

for i := 1 to 5 do
begin
  sleep(500);
  writeln('warte ' + inttostr(i * 500) + 'ms...');
  while peekmessage(msg,0,0,0,pm_remove) do dispatchmessage(msg);
end;

Wobei man allerdings bei nem Timer ohne Klasse hier ja mal viel schneller über die WInApi ist. (Das ist dir sicherlich auch bewusst.)

Letzteres bringt mich allerdings wieder zurück zum Thema:
Kann es vielleicht nicht günstiger sein, die Sockets direkt über die WinApi zu machen (ich habe damit noch keine Erfahrung), als VCL-Kompos in eine nonGUI-Anwendung mit erhöhten Aufwand hineinpressen zu wollen? Zumal die Unit scktcomp nicht grade knausrig an VCL-Ressorucen ist. Wenn man die scktcomp einbindet, kann man eigentlich auch gleich ein VCL-Anwendung schreiben.

[nitschchedu]

Zitat:

Zitat von sirius

Kann es vielleicht nicht günstiger sein, die Sockets direkt über die WinApi zu machen (ich habe damit noch keine Erfahrung), als VCL-Kompos in eine nonGUI-Anwendung mit erhöhten Aufwand hineinpressen zu wollen? Zumal die Unit scktcomp nicht grade knausrig an VCL-Ressorucen ist. Wenn man die scktcomp einbindet, kann man eigentlich auch gleich ein VCL-Anwendung schreiben.

Ähhhh lass es mich so sagen das ich schon selber mit den WinAPI Funktionen gearbeitet habe, ohne Komponente müsstest du dich um das Socket Handling, Error Handling, Multitasting und die Einstellung der Socket kümmern. Ne Bissel aufwändig für dein Programm oder ?