OnExecute selbst aufrufen

[Kalle_XXXX]

Na moin!
Ich benutze Delphi8 for .Net!
Normalerweise kenn ich es von Delphi5 das man die Indys gleich in einer KomponentenBox hat. Beim 8er ist das leider nicht mehr so, also hab ich alles manuell eingebunden.
Hab nun auch schon ein Objekt des Typs idTCPServer, das ich erstelle und auch schon Eigenschaften zugewiesen bekommt.
Da diese Komponente nun aber leider nicht auf dem Layout sichtbar ist. Kann ich kein Event vie Doppelklick auf eine Ereignis definieren.
Wie kann ich es mir ermöglichen das OnExecute- event des Servers zu definieren und zu erweitern?
Hab mir zwar den Gesamten Code angeschaut der angelegt wird, wenn man eine StandardComponente anlegt, aber was nützliches gefunden hab ich leider nicht.
Schon mal danke für jeden Thread

[omata]

Moin,

also vestehe ich das richtig, dass du die Indy-Units einfach eingebunden hast?

Versuch doch mal das Package der Indy-Komponenten hinzufügen, dann hast du auch wieder einen Reiter in der Komponentenliste.
Unter Delphi7 heißt die Packagedatei: dclindy70.bpl musste also unter Delphi8 dclindy80.bpl heißen such doch einfach mal noch dieser Datei (oder schau mal in das Delphi8\bin-Verzeichnis).

Dann kannst du die Komponente so nutzen, wie immer.

Die andere Alternative ist die, die du schon angewendet hast.
Die Ereignisse musst du dann aber selber zuweisen (im FormCreate)

  IdTCPServer.OnExecute:=IdTCPServerExecute; die Ereignisprozedur musst du dann selber anlegen...

Delphi-Quellcode:

procedure TForm.IdTCPServerExecute(AThread: TIdPeerThread);
begin

end;

MfG
Thorsten

[Kalle_XXXX]

Ok jetzt hab ich mein Uses so erweitert

Code:

[b]uses[/b] ... System.Threading;

um einen Thread verwenden zu können.
Unter Public hab ich dann meine Procedure angelegt:

Code:

procedure IdTCPServerExecute(AThread: Thread);

Definierte Procedure im Code:

Code:

procedure TWinForm1.IdTCPServerExecute(AThread: Thread);
begin 

end;

Und jetzt das wo er hängt:
Im TWinForm1.Create
ServerSocket ist mein idTCPServer Object

Code:

ServerSocket.OnExecute := IdTCPServerExecute;

Folgende Fehlermeldung erhalte ich:

Code:

Incompatyple Types: 'TidServerThreadEvent' and 'procedure, untyped pointer or untyped parameter'

Hast du noch ne Idee? Hab schon Probiert nen Thread mit zu übergeben, aber das wird auch dankend abgelehnt!
Thx

[Meflin]

versuche es mit
@ServerSocket.OnExecute := @IdTCPServerExecute;

[Kalle_XXXX]

Code:

ServerSocket.OnExecute := @IdTCPServerExecute;

--> Incompytyble Typs TidContext und Thread

Versteh i ni

[Meflin]

vor beides ein @!

[mirage228]

Zitat von Meflin:

vor beides ein @!

Bist Du sicher, dass sowas auch in Delphi 8 bzw. in .NET generell geht?
.NET braucht bei sowas imho absolute Typsicherheit.

mfG
mirage228

[Meflin]

Zitat von mirage228:

Zitat von Meflin:

vor beides ein @!

Bist Du sicher, dass sowas auch in Delphi 8 bzw. in .NET generell geht?
.NET braucht bei sowas imho absolute Typsicherheit.

mfG
mirage228

nein keine ahnung, hab keinen blassen schimmer von .net! zumindest beim "normalen" delphi gehts so

[omata]

Moin,

ich habe dir doch die Prozedur mit seinen Parametern geschrieben.
Warum deklarierst du dann einen andere?
Die Parameter sind doch ganz anders!
Und wieso im Public-Teil, das ist zwar nicht so wichtig, aber soetwas wird immer im Private-Teil deklariert!

die Prozedur muss so aussehen:

Delphi-Quellcode:

procedure TForm.IdTCPServerExecute(AThread: TIdPeerThread);
begin

end;

NICHT so:

Delphi-Quellcode:

procedure TForm.IdTCPServerExecute(AThread: Thread);
begin

end;

(siehe Parameter!)

Die Fehlermeldung sagt genau das, was ich hier nochmal geschieben habe.

Und was hast du da für eine komische uses-Aktion durchgeführt.

Hast du mal versucht das Package zuinstallieren, damit das alles wie gewohnt funktionert?
Hast du die bpl-Datei gefunden?

sorry, aber wer lesen kann ist klar im Vorteil.

MfG
Thorsten

[Kalle_XXXX]

hatte bereits beide Varianten ausgetestet.
Gibts noch andere Lösungen für meine eigentliche Frage?
Zumindest ist es in D8 nicht so einfach eine Indy Komponente in die Toolbox zu bekommen. Deshalb war ich je gezwungen alles selbst zu coden, leider häng ich halt nur an dieser Stelle mit den Events.