Forum: Netzwerke
by Captnemo,
17. Jun 2014
Ein neuer Tag, und kaum geht man neu ausgeruht an die Sache heran, fallen einem gleich die Fehler auf :-)
Nun funktioniert's.
Zur Erklärung: Im OnSessionAvailable wird eine neuen Instanz für die ankommende Session erzeugt
procedure Tfrm_main.ipserverSessionAvailable(Sender: TObject; ErrCode: Word);
var
mysocket: TSocket;
begin
if ErrCode <> 0 then exit;
mysocket:=ipserver.Accept;
Forum: Netzwerke
by Captnemo,
16. Jun 2014
ich habe es mal geändert in
mysocket:=(sender as TWSocket).Accept;
und dann klappt es (frag mich aber, wie die das dann mit dem Beispielcode im Wiki geschafft haben).
Leider komme ich aber immer noch nicht zu dem gewünschten Ergebnis.
Ich habe auf der Form 2 TWSocket's. Einer wird mit Listen als Server gestartet, und über den anderen kann man auf einen Port eine Nachricht schicken...
Forum: Netzwerke
by Captnemo,
16. Jun 2014
Dann meckert er bei mir
clt_main.pas(118): E2035 Nicht genügend wirkliche Parameter
bei dem
mysocket:=accept;
Aber das es im Wiki von ICS so beschrieben steht, dachte ich, dass ich das so verwenden kann.