Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
23. Mai 2005
Mit der 1000 war nur n Tippfehler. ^^ :)
Gut, also das Application.ProcessMessage hab ich eingebaut, und den String "s" auch wie von dir empfohlen übergeben. Weiterhin wird beim Server die Procedure nicht mehr beim OnConnect ausgeeführt, sondern bei "OnExecute"
Nun klappts zwar erstmal ohne Fehlermeldung, nur, ganz komisch, zählt der Server erst die Progressbar hoch, dann werden anscheind...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
23. Mai 2005
den Tip mit dem Aufruf-stack hab ich durch, wurde dadurch aber auch nicht schlauer, jedenfalls steht da nichts verdächtiges :)
Jetzt hab ich jedenfalls meine beiden Routinen in 2 kleine Programme gesteckt. Zu dem Fehler wie oben beschrieben kommt es jetzt zwar nicht, aber klappen tuts immer noch nicht.
Ist nicht viel Code, ich zeigs mal eben:
Client:
procedure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
20. Mai 2005
keiner ne Idee? Ich find sonst keinen Ausweg, ausser mit der Fehlermeldung zu leben *bibber*
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
9. Mai 2005
ich werd verrückt... das Ding steckt voller Überraschungen. Nun hab ich versucht ein wenig rum zu tricksen:
Folgendes steht jetzt in meiner Action:
if (NOT FileExists('y:\mysqlimporter\pegel\dummy_p_vorgangsbuch')) AND
(NOT f_main.TcpServer.Active) AND
(NOT UpdateAktiv) then
begin
...
UpdateAktiv := True;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
9. Mai 2005
Ich hab jetzt nochmal geschaut, und hier noch einmal zur Übersicht _alle_ Procs die mit TCPServer auch nur indirekt zu tun haben:
Im MDICHild wird die Action der Hauptunit aufgerufen:
f_main.ac_UpdateExecute(Self);
Das wars von der Seite, jetzt die Action in der Hauptunit, die hier den TCPServer aktiviert, der eben auch in der Hautpunit liegt:
procedure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
9. Mai 2005
hm... leider war das auch nicht die optimale Lösung.
Die Fehlerstelle war btw. das "TCPServer.Close" in der Prozedure "OnAccept" siehe oben.
Jetzt wird, wie erwähnt, aus meinem MDIChild eine Action in der Hauptunit ausgelöst. Diese Action wiederum macht das, was vorher das MDIChild gemacht hat, es öffnet seinerseits den TCPServer.
Es kommt weiterhin zu der Fehlermeldung, offensichtlich...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
9. Mai 2005
Salut :)
die o.g. Fehlermeldung der Klasse "EOSError"
erhalte ich, wenn ich mein Programm schliesse.
Der Fehler tritt aber nur auf, wenn ich vorher im Programm folgendes "Feature" auslöse:
In einem Formular (MDIChild) wird folgende Proc aufgerufen:
procedure Tf_Vorgangsbuch.DOSUpdate1Click(Sender: TObject);