Forum: Netzwerke
Delphi
by HenryX14,
24. Mär 2003
:?: kann doch nicht soo kompliziert sein, oder? Hat nicht jemand einen Tip für mich? BITTE! :?:
Forum: Netzwerke
Delphi
by HenryX14,
19. Mär 2003
hab die Sache noch weiter eingegrenzt: OnWorkBegin wir korrekt ausgelöst. OnWorkEnd auch. Nur OnWork wird während der übertragung nicht ausgelöst! Woran kann das liegen? Weiterhin auffällig ist, das OnWorkEnd, und OnWorkBegin gleichzeitig ausgelöst werden. Überprüft hab ich das so:
procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);...
Forum: Netzwerke
Delphi
by HenryX14,
19. Mär 2003
Hi,
Ok, AntiFreeze Komponente ist drauf. Ruckelt auch nicht mehr. Jedoch erhalte ich wie erst am Ende der Übertragung die empfangenen bytes. Mit OnWorkBegin, OnWork, OnWorkEnd hab ichs auch versucht. Funktioniert nicht. Hier der Code:
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TFileStream;
filename: TFileName;
begin
if opendialog1.Execute then
filename :=...
Forum: Netzwerke
Delphi
by HenryX14,
18. Mär 2003
Das Problem dabei ist folgendes: Das programm (der Thread) "friert" ein, bis die datei übertragen ist. erst dann gibt er die vollständige größe zurück:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stream: TFileStream;
income,filename,groesse, filename2: String;
i: Integer;
begin
income := AThread.Connection.ReadLn();