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:
Delphi-Quellcode:
procedure Tf_main.ac_UpdateExecute(Sender: TObject);
begin
if (NOT FileExists('y:\mysqlimporter\test\dummy_p_vorgangsbuch')) AND
(NOT f_main.TcpServer.Active) then
begin
TcpServer.Open;
ShellExecute(
f_vorgangsbuch.handle,
'open',
PChar('psexec.exe'),
PChar('\\testserver -i -w y:\mysqlimporter\test\ -d ' +
' y:\mysqlimporter\test\import.exe ' +
' J:\test\test\vorgbuch.dbf p_vorgangsbuch Ja ' +
f_main.getIPs[0] ),
PChar('y:\mysqlimporter\test\'),
SW_SHOW);
end else
ShowMessage(' Update wird bereits ausgeführt! ');
end;
und das Ereignis "ONACCEPT" des TCPServer, in dem sich seit dem letzten siehe oben nichts geändert hat.
Heisst also im Klartext, in der Action wird der TCPServer aktiviert, und im TCPServer wird er wieder deaktiviert. Sonst gibts definitiv keine anderen Zugriffe von irgendwoher. Die Frage ist, warum das nicht so sein darf?
Ich hab jetzt wie gesagt mal folgendes probiert:
Delphi-Quellcode:
procedure Tf_main.ac_UpdateExecute(Sender: TObject);
begin
if (NOT FileExists('y:\mysqlimporter\test\dummy_p_vorgangsbuch')) AND
(NOT f_main.TcpServer.Active) then
begin
TcpServer.Open;
(...)
TCPServer.Close;
end;
was meine Theorie nur bekräftigt, dass schlicht und ergreifend nur aus einer und derselben prozedure der Server gesteuert werden darf.
DAs ist natürlich doof, denn wie soll ich nun meine Progressbar realisieren, die ja quasi übers Netzwerk "gesteuert" wird?
tyler