Hallo,

hat jemand ne Idee wie man Stringlisten mit den Sockets versenden kann?

Danke im Voraus


Robin

mit TStringlist.Text kriegst du den kompeltten text. den kannst du verschicken und dann wieder zuweisen.

Oder besser mit StringList.DelimitedText. Man weiß ja nie, wie eventuelle Zeilenumbrüche geparst werden ...

Ich hab's mal so gemacht. Bezweifele aber sehr das, dass richtig ist, weil immer die Meldung "Asynchroner Socket Fehler 10061" kommt. Ich beschäftige mich auf erst seit kurzen mit den Sockets, weiss jemand wo der Fehler ist?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.SendProcessList(Host: string);
var
  IP: string;
begin
  if Host<>'' then begin
  IP := GetIP(Host); // IP Ermitteln
  if Ping(IP, 100) then begin
  Socket.Active := False;
  Socket.Port := _Port; //Port: 3251
  Socket.Address := IP;
  Socket.Active := True;
  end else
    Mes.Lines.Add('=> Host Antwortet nicht!'); //Wenn keine Antwort auf Ping: Fehler
  end;
end;

procedure TMainForm.SocketConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  Proc_L: string;
  i: integer;
begin
  GetProcessList(Processes.Items);
  Processes.Update;
  Proc_L := Processes.Items.DelimitedText;
  Socket.SendText(Proc_L);
end;

[edit] Unnötie Variable aus Quelltext entfernt [/edit]

Der dürfte nicht direkt bei dir, sondern bei den Sockets liegen.

Zitat:

WSAECONNREFUSED 10061 (Connection refused) No connection could be made because the target computer actively refused it. This usually results from trying to connect to a service that is inactive on the foreign host-that is, one with no server application running.

Wahrscheinlich wird die Verbindung durch einen Firewall oder Router blockiert.

Da gibt es eine Firewall, jedoch habe ich da eingestellt, dass das Programm auf das Netzwerk zugreifen darf. Komisch.

Es gibt doch auch eine Unit names "URLMon". Kann man vielleicht damit Dateien von einem Computer im LAN laden? Dann könnte man ja einfach die Liste als Datei speichern und versenden.

Mit URLMon kann man Dateien aus dem Internet laden.
Versuchs mal, wenn der Firewall komplett aus ist. Wenns dann klappt, liegts daran.

Dann bekomme ich keine Fehlermeldung mehr. Aber es kommt auch nichts an, ich denke ich habe beim Server einen Fehler gemacht.
Habe aber ein Totorial gefunden

Edit:
Bei den Chatprogramm aus dem Totorial bekomme ich auch den Fehler. Ohne Firewall.

Zitat:

Wahrscheinlich wird die Verbindung durch einen Firewall oder Router blockiert.

Ich denke der Router ist es, ich guck mal in die Log von den