Forum: Netzwerke
Delphi
by Jackie1983,
22. Jun 2010
Hi Data,
danke erst mal das du dir die Zeit nimmst das ganze mit mir durchzugehen.
Eventuell noch als Hinweis. Die Befehle die versendet werden sehen so aus.
TSocketPaket = record
//Header
sizeGesamt : integer;
sizeDaten : integer;
Command : TCommand;
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
So nach dem ich jetzt schon den ganzen Tag am test bin und einfach nicht weiter weis.... Möchte ich das ganze mal beschreiben, vielleicht mach ich im Ansatz was falsch.
Ziel des Projektes ist es ein einfachen Server / Client zubekommen der Text über das Netzwerk sendet, später noch mit SSL. Die Clients müssen überwacht werden und sobald eine Verbindung nicht stimmt, muss der Server die...
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
hi,
ok wenn das nicht zu viel ist, mache ich das gerne.
Ist alles im Thread :D
Client Send
if not fclient.Connected then exit;
// fcs.Enter;
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
Ne die Datei gibt es ja nicht bei mir auf dem Computer, habe ja danach gesucht.
Mein Projekt scheint aber noch zu funktionieren. Muste eigentlich nichts umstellen.
Hoffe das ich das jetzt richtig installiert habe.
Danke für deine Hilfe. Werde mal schauen wie weit ich komme...
{Edit} Der Client friert dennoch ein :(, zum ko....{/Edit}
{Edit} Wenn ich am Client das CS rausnehme kein Problem,...
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
Hi,
danke für den Link.
Ist die Reihenfolge jetzt anders bei der Installation wie oben
in der Anleitung?:stupid:
Gute frage, ich weis es nicht...
//Edit
Habe das ganze jetzt wie folgt installiert
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
ok bin schon dabei die 10er zu installieren, weil wenn ich das schon neu mache dann kann ich auch die 10 nehmen. Habe bei der Installation schon einige Probleme. Die Demos funktionieren nicht, es können eigenschaften nicht gefunden werden so wie ganze units, obwohl ich die alles gesetzt habe.
Habe es nach dieser Anleitung gemacht...
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
Hi DataCool,
also....
Die CS ist damit wenn der Server gerade list nicht wo anders am Server OnWrite aufgerufen wird. Oder ist das CS zu viel, habe das gleich auch am Client.
Habe die Funktion nur OnRead genannt. msg ist local.
Ein leerstring sollte eigentlich nicht kommen. Und wenn doch kann ich eh nichts damit anfangen. Also bei einem fehler, meist Timeout, soll nicht weiter gemacht...
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
Ok so wie ich es jetzt gemacht habe geht es nicht.
Habe im Client einfach per Timer text gesendet und im Server den Text einfach wieder zum Client zurück gesendet. Da kommt nur alle paar Sekunden was an, wenn überhaupt.
Irgend wo habe ich da noch einen Fehler....
//Edit
Nach einer Zeit friert der gesamte Client ein. Habe jetzt den Text am Client mal nicht in der Listbox angezeigt und so...
Forum: Netzwerke
Delphi
by Jackie1983,
21. Jun 2010
Hi,
bei meiner Anwendung muss immer eine Verbindung mit dem Server bestehen. Habe das früher mit den Sockets gemacht, da hat es so funktioniert. Jetzt wo ich das mit den Indys mache und alles auf Threads basiert, weis ich nicht ob das immer noch so funktionieren würde.
Das ist der Client Execute, gekürzt.
while not Terminated do begin
if not fClient.Connected then
try
...