Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Kann das Speicherleck nicht finden...

    Delphi
    by BenTech, 30. Dez 2005
  Habe das Problem aus lauter Verzweiflung jetzt folgendermaßen "gelöst"...
  
  procedure TMyThreads.Execute;
  begin
  Repeat
  if not paused then
  begin
  Online := Ping(InetAddress,TimeOut);
  Synchronize(UpdateMain);
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Kann das Speicherleck nicht finden...

    Delphi
    by BenTech, 23. Dez 2005
  Hi,
  hier die Prozedur...
  
  procedure TranslateStringToTInAddr(AIP: string; var AInAddr);
  var
  phe: PHostEnt;
  pac: PChar;
  GInitData: TWSAData;
  begin
  WSAStartup($101, GInitData);
• Forum: Sonstige Fragen zu Delphi

  Re: Kann das Speicherleck nicht finden...

    Delphi
    by BenTech, 22. Dez 2005
  Soo, habe das Leck jetzt einschränken können. Es befindet sich eindeutig in der Ping-Funktion. Wenn ich diese aus dem Programm entferne, verschwindet das Leck.
  
  Also scheint hier irgendwo in der "raw_ping.pas" etwas nicht ganz sauber freigegeben zu werden...
  function Ping(InetAddress : string; TimeOut : Integer) : boolean;
  var
  Handle : THandle;
  InAddr : IPAddr;
  DW : DWORD;
  rep : array...
• Forum: Sonstige Fragen zu Delphi

  Kann das Speicherleck nicht finden...

    Delphi
    by BenTech, 22. Dez 2005
  Hallo,
  ich habe ein Programm geschrieben, das IPs anpingt. Für jeden Ping wird ein Thread erstellt. Ich stelle jedoch fest, dass bei jeder Threaderstellung und Terminierung 16 kByte verloren gehen.
  Ich kann jedoch nicht nachvollziehen, wo das Speicherleck ist.
  
  Hier der Aufruf des Threads...
  IpWatchList.IPThread := TMyThreads.Create(true);
  IpWatchList.IPThread.InetAddress := png_IP;...