Hallo,
ich verwende folgenden Code, der klappt auch wunderbar. Nur ist nach der Abfrage die Datei ca 1MB grösser, wie kann ich den Speicher wieder freigeben?

zusammenfalten · markieren

Delphi-Quellcode:

uses
  WinInet;

{...}

function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsConnectedToInternet then
    ShowMessage('Connected.')
  else
    ShowMessage('Not Connected.')
end;

öhm... "die datei"?

Wenn es die eingebundene WinInet.pas ist, die den Speicher verbraucht, musst du InternetGetConnectedState statisch einbinden. dann kannst du die unit rausschmeißen.

Wenn du von Speicherverbrauch zur runtime redest, dann weiß ich nicht, wo der herkommen sollte...

Hatte gerad noch ein bisschen gegooglt, aber bin nicht wirklich am weitergekommen!



Nachtrag: Die Datei(Exe)wird zur Laufzeit nach Button klick um 1MB grösser.

Wie meinst Du Statisch einbinden?? =>unit rausschmeißen(die WinInet.pas hab ich in den uses dabei)



hab leider wirklich nix gefunden?

Die Datei wird ganz sicher nicht nach dem buttonclick um 1MB größer!

Du meinst wohl den Verbrauch an Arbeitsspeicher... könnte sein, dass da in der API-Funktion was alloziiert wird und der Delphi-Speichermanager behält das, um es später wieder zu verwenden. Kann mir nicht vorstellen, dass Microsoft da Speicherlecks fabriziert hat.

Aber du kannst auf jeden Fall nichts dagegen tun außer einen anderen Speichermanager zu verwenden