Eigene Ereignisse ...

[BungeeBug]

Hi all
ich hätte gerne ne Porblem ... also wiefolgt ich versuche seit geraumer Zeit das POP3 Protokoll mit Hilfe der TClientSocket - Komponente. Das Problem ist das ich Verschiedene Anfragen vom Server beantworten muss und um auf die Anfragen zureagiren brauch ich das OnRead Ereigniss, nur weis ich jetzt nicht , da ich ja mehrere Anfragen beantworten muss, wie ich verschiedene OnRead - Ereignisse erzeugen machen kann ... ich hoffe ihr versteht was ich meine

MfG BungeeBug

[Alexander]

Vielleicht kannst du dir ja mal eine Komponente ankcuken, bei der der Source dabei ist

[BungeeBug]

na andere Möglichkeit gibbet nich?

[oki]

Hi,

noch mal zu deiner Frage. willst du mehrfach nur auf das OnRead-Ereignis reagieren (Wo Problem?) oder im InRead-Ereignes sozusagen vorselectieren und die Nachrichten auf neue dedizierte eigene Ereignisse umleiten (um sie an gegebener Stelle speziell zu verarbeiten)?

Gruß oki

[BungeeBug]

Ich habe vor mit dem TCientSocket auf einen POP3 Server zuverbinden. Das Probem is jetzt das ich auf verschiedene Fragen antworten schicken muss, per Schleife geht das nich weil die einfach "zuschnell" is. Also muss ich wohl immer waren bis das OnRead Ereigniss ausgelöst wird und dann darauf reagieren .. nur hab ich keine Ahnung wie ich abfragen soll ob es ausgelöst worden is ... ich hab mich evl. am Anfang falsch ausgedrückt ..

MfG BungeeBug

[oki]

Ja gut,

also wenn du die Client-Socked-Komponente auf dein Form gesetzt hast rufst du einfach über den OI Seite Ereignisse die OnRead-Methode auf und schreibst da Deine Ereignisbehandlung rein.

Oder bin ich jetzt am falschen Ende deiner Frage?

Gruß oki

[BungeeBug]

Ich glaub schon ... ich dacht mit das so Wenn ClientSocket1.Onread aktiviert wird dann gucke on ClientSocket1.Socket.RecieveString := blablabla is , dann machen das und das wenn nicht dann tu die und das ..

Könnte dann so aus sehen

Code:

IF ClientSocket1.OnRead = TRUE THEN
 BEGIN
 END
ELSE
 BEGIN
 END;

das geht aber nicht ... leider ...

MfG BungeeBug

[oki]

Ne,

das Objekt hat eine Ereignisbehandlung in Form einer Methode implementiert!

Die mußt du überschreiben!

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  // hier kommt meine Ereignisbehandlung
end;

wie du über Socked die Nachricht bekommst um sie weiter zu verarbeiten stiht glaube ich in der Hilfe (OI Methode OnRead anclicken und F1 drücken)

Gruß oki