Hallo miteinander.
Ich hoffe mir kann jemand helfen. Mein Programm verbraucht immer mehr Speicher, bis der Arbeitsspeicher voll ist. Sobald ich keine Dateien mehr zu übertragen habe, steigt der Speicherverbrauch auch nicht mehr an.
Ich habe das Problem auf den Netzwerk-Code eingegrenzt und auch mehrere Tools zum Aufspüren von Memory Leaks bereits verwendet, aber die haben nichts gefunden.
Ich habe erst vor kurzem mit Delphi angefangen und es könnte sein, dass ich vielleicht etwas nicht richtig mache. Ich habe schon andere Programmiersprachen verwendet, aber das ist mein erstes Netzwerkprogramm. Meine 2-wöchige Suche im Internet hat keine brauchbaren Hinweise oder Lösungen gebracht.
Ich bin für jede Hilfe dankbar.
Delphi-Quellcode:
procedure TRecvFileThread.Execute;
var
client : TIdTcpClient;
begin
client := nil;
try
client := TIdTcpClient.Create(nil);
client.Host := Form1.OtherPcIP;
client.Port := Form1.FocPort;
while not Terminated do
begin
try
client.Connect;
while not Terminated do
begin
Networking(client);
end;
finally
client.Disconnect;
Sleep(SLEEP_THREADS);
end;
end;
finally
client.Free;
end;
end;
procedure TRecvFileThread.Networking(var client : TIdTcpClient);
var
path, path_foc, filename, resp : string;
filestr : TFileStream;
filesize : int64;
begin
client.WriteLn('SEND');
resp := client.ReadLn(EOL);
if resp = 'READY' then
begin
filename := client.ReadLn(EOL);
filesize := StrToInt64(client.ReadLn(EOL));
path := dir + filename;
path_foc := path + '.foc';
filestr := nil;
try
filestr := TFileStream.Create(path_foc, fmCreate);
client.ReadStream(filestr, filesize);
finally
filestr.Free;
end;
CopyFile(PChar(path_foc), PChar(path), false);
client.WriteLn('OK');
DeleteFile(PChar(path_foc));
end
else if resp = 'NONE' then
Sleep(SLEEP_THREADS)
else
client.Disconnect;
end;