Speicherleck bei PChar(XYZ)/Ansistring - FastMM4

[stho]

Hallo Leute, ich arbeite gerade an einem Programm um Services zu überwachen.
Dazu läuft ein Timer der regelmäßig den Service-Status überprüft.

Ich habe ein Objekt "ServiceManager"
Doch jedes mal wenn ich in diesem Objekt eine Funktion aufrufe entsteht angeblich ein Speicherleck. (Sagt mir zumindest FastMM4)

Hiermit verbinde ich mich zu einem Service:

Delphi-Quellcode:

function TServiceManager.OpenServiceConnection(ServiceName: PChar): boolean;
begin
  //result := false;
  { open a connetcion to a specific service }
  ServiceHandle := OpenService(ServiceControlManager, ServiceName, SERVICE_ALL_ACCESS);
  result := (ServiceHandle <> 0);
end;

Hiermit frage ich den Status eines Dienstes ab mit dem ich mich aktuell verbunden habe:

Delphi-Quellcode:

function TServiceManager.GetStatus: DWORD;
var
  ServiceStatus:         TServiceStatus;
begin
{ Returns the status of the service. Maybe you want to check this
  more than once, so just call this function again.
  Results may be: SERVICE_STOPPED
                  SERVICE_START_PENDING
                  SERVICE_STOP_PENDING
                  SERVICE_RUNNING
                  SERVICE_CONTINUE_PENDING
                  SERVICE_PAUSE_PENDING
                  SERVICE_PAUSED}
  QueryServiceStatus(ServiceHandle,ServiceStatus);
  result := ServiceStatus.dwCurrentState;
end;

Und Damit beende ich die verbindung zum Service:

Delphi-Quellcode:

function TServiceManager.CloseServiceConnection: Boolean;
begin
  result:= CloseServiceHandle(ServiceHandle);
end;

So lautet die Funktion mit der ich einen Service-Status abfrage:

Delphi-Quellcode:

function TMainForm.ServiceGetStatus(sService: PChar): Integer;
begin
  try
    if FServiceManager.OpenServiceConnection(sService) then
      Result := FServiceManager.GetStatus     // Entweder normaler Status
    else
      Result := SERVICE_NOT_FOUND;            // ... oder nicht gefunden
    FServiceManager.CloseServiceConnection;
  except
    result := SERVICE_READERROR;              // Fehler aufgetreten?
  end;
end;

und so rufe ich diese Funktion auf:

Delphi-Quellcode:

ServiceGetStatus(PChar(Data^.FServiceName));

Doch je länger und öfter ich den Status eines Dienstes aktuallisiere desto größer wird das Speicherleck -.-
Was genau mache ich falsch und was kann ich stattdessen tun?
Achja, Data^.FServiceName ist ein Record eines VST vom Typ String...

[daywalker9]

Mach das mal folgender Maßen:

Delphi-Quellcode:

function StrToPChar(SourceStr: Ansistring; var DestStr: pChar): Integer;
begin
  if SourceStr='' then
    begin DestStr:=NIL;
          exit;
    end;
  DestStr := StrAlloc(length(SourceStr) + 1);  //speicher für DestStr anfordern
  Move(SourceStr[1], DestStr^, length(SourceStr) + 1); //inhalt von SourceStr nach DestStr kopieren
  //fals es keine binärdaten sind dann die abschließende #0 (Stringende)
  DestStr[length(SourceStr)] := #0; //bei DestStr noch ein #0 anhängen
  //falls es doch binärdaten sind ist es besser die Länge zurück zu geben
  result := length(SourceStr);
end;


var
 meinPChar : pChar;
begin
  StrToPChar(Data^.FServiceName,meinPChar);
  ServiceGetStatus(meinPChar);
  StrDispose(meinPChar);
end;

So holst du dir sauber den Speicher für deinen PChar und gibts diesen auch immer wieder frei