Geschwindigkeitsproblem: Screenshots, Bildbearbeitung

[quetzal1906]

Hallo,

Ich hab das mit den DC`s freigeben jetzt so verstanden dass ich mir beim screenshot machen nur einmal eins hole, und dasselbe dann wieder freigebe:

Delphi-Quellcode:

function FormularScreenShot(Bmp: TBitmap; h : hWnd): Boolean;
var
  Rec: TRect;
  iWidth, iHeight: Integer;
  handleDC:hwnd;
begin
  with Bmp do try
    GetWindowRect(h, Rec);

    iWidth  := Rec.Right - Rec.Left;
    iHeight := Rec.Bottom - Rec.Top;

    Width := iWidth;
    Height := iHeight;
    handleDC:=GetWindowDC(h);
    BitBlt(Canvas.Handle, 0, 0, iWidth, iHeight, handleDC, 0, 0, SRCCOPY);

    Result := True;
  finally
    ReleaseDC(h, handleDC);
  end;
end;

sieht dann so aus? War das was du meintest? Also im ersten Testlauf hab ich nach 10minuten keine Verlangsamung bemerkt. Also schonmal danke für die Idee!

Zitat von hathor:

1. Verdacht: RAM läuft voll - es muss mehr geswappt werden.

Danke für die Antwort, nur, was bedeutet das? ^^ was heißt mehr geswappt werden?

Danke fürs Lesen,
quetzal

[himitsu]

Zitat:

geswappt

Kennst du die Auslagerungsdatei/Pagefile?

Wird der RAM zu voll, dann fängt Windows an diesen auf die Festplatte auszulagern.
Und die Festplatte ist nunmal langsamer.

[Medium]

Zitat von quetzal1906:

sieht dann so aus? War das was du meintest?

Jap
Im wesentlichen auch sauber so, bis auf, dass ich das Handle vor dem try..finally abholen würde. Ich glaube zwar, dass das Freigeben eines ungültigen Handles im Fehlerfall nicht so tragisch ist, aber des Prinzips wegen:

Delphi-Quellcode:

handleDC:=GetWindowDC(h);
try
  // foo
finally
  ReleaseDC(h, handleDC);
end;

Ansonsten wären die weiteren Routinen interessant, in denen das Bitmap weiter verarbeitet wird. Delphis TBitmap Klasse nutzt intern auch ein wenig GDI-Zauber, und verbraucht dementsprechend auch dort Resourcen dieser API. Wenn da aber alles an temporärem Zeug fein säuberlich freigegeben wird, und das schon auch mittel- bis langfristig Besserung geschaffen hat, dann freu ich mich ja schon


Herzlich willkommen in der übrigens!

[hathor]

Zitat von quetzal1906:

Zitat von hathor:

1. Verdacht: RAM läuft voll - es muss mehr geswappt werden.

Danke für die Antwort, nur, was bedeutet das? ^^ was heißt mehr geswappt werden?

Danke fürs Lesen,
quetzal

http://de.wikipedia.org/wiki/Auslagerungsdatei
http://de.wikipedia.org/wiki/Swapping
http://en.wikipedia.org/wiki/Paging

[Sir Rufo]

Was mit noch so auffällt:

Der Rückgabewert macht keinen Sinn. Der ist immer true ... bzw. undefiniert, wenn innerhalb der Funktion eine Exception auftaucht. Aber selbst dann würde ein definierter Rückgabewert auch nicht weiter helfen, weil die Exception in der Funktion nicht abgefangen wird und somit die weitere Ausführung unterbricht.

[quetzal1906]

Hi, und Danke für die ganzen Antworten.

Die Sache mit den DC's hat das Problem gelöst, habs mal 2 stunden laufen lassen und hatte keine Geschwindigkeitsprobleme!
Danke aber auch für die anderen Hinweise, hilft ja alles beim Optimieren

schöne Grüße,
quetzal