Es stehen nicht genügend Resourcen.....

[Redeemer]

Man sieht im Process Explorer die Anzahl der GDI-Handles, so als ersten Schritt.

[Der schöne Günther]

Der normale Windows Taskmanager kann GDI-Objekte, Handles, Threads, Speicher und vieles mehr anzeigen.

Kannst du das Problem denn halbwegs reproduzieren? Das allein wäre schon sehr viel wert.

[creehawk]

Das reproduzieren des Fehlers ist das Problem, dann hätte man ja einen Ansatz. Aber die Messagebox kommt einfach irgendwann - drei Minuten nach dem Start, zwanzig Minuten nach dem Start.
Wir haben hier mehrere Rechner unterschiedlicher Ausstattung. Bei manchen passiert nie was (83%), beim anderen andauernd (7%), beim wieder anderen gelegentlich(10%). Insgesamt 24 Rechner.

Das angeforderte 'Fenster schliessen' bringt nichts, oft wird nur das Hauptformular angezeigt. Zudem : Beenden kann ich das nur alles mit dem Taskmanager und Task beenden.

In der Messagebox wird als Überschrift der Programmname genannt, deshalb gehe ich davon aus an das kommt eben aus dem Programm. Es werden keine Fremdprogramme aufgerufen, DLLs oder ähnliches verwendet.

Jetz werden wir mal den Taskmanager befragen über Handles und das ganze Zeug. Wenn die Meldung kommt müsste ja was zu finden sein.

creehawk

P.S. die Base64 habe ich rausgeworfen, Canvas Aktionen habe ich keine drin.

[Der schöne Günther]

Schau doch noch im Windows-Event-Viewer nach, ich wette da stehen auch mehr Informationen (welcher Prozess, evtl. sogar Adresse aus dem Stack)

[Redeemer]

Ja poste mal den Quelltext, mindestens vom Erstellen der Bitmap bis zum Freigeben.

Wenn GDI überlastet ist, fehlen oft Teile von Fenstern.

[creehawk]

Gefunden. Hoffentlich. Jedenfalls ist der Fehler die letzten 90 Minuten auf mehreren Rechnern nicht mehr aufgetaucht.

Um eine Bitmap umzuwandeln in Base64 verwenden wir IdEncoderMIME (Indy). Schön. Allerdings fehlte in der Funktion eine Kleinigkeit.

ALT:

Delphi-Quellcode:

function CreateBase64String(FileName: String): String;
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(FileName, fmOpenRead);
  try
    Result := TIdEncoderMIME.EncodeStream(FS);
  finally
  end;
end;

NEU:

Delphi-Quellcode:

function CreateBase64String(FileName: String): String;
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(FileName, fmOpenRead);
  try
    Result := TIdEncoderMIME.EncodeStream(FS);
  finally
    FS.Free;
  end;
end;

Gesehen? Da habe ich auch mehrfach drüber weggelesen.

Na, vielen Dank für die Hinweise, ich hoffe das war es. Wenn nicht.....

creehawk

[Der schöne Günther]

Dann würde ich aber sagen dass deine zwei Tools die du verwendet hast nicht gut sind:

Zitat von creehawk:

Speicherlecks habe ich mit 2 Tools gesucht, nix zu finden.

[Redeemer]

Warum braucht man eigentlich Tools dafür? ReportMemoryLeaksOnShutdown reicht doch, wobei es bei manchen kleinen Typen manchmal erst ab einer gewissen (kleinen) Zahl so etwas meldet.