Keine Ahnung, was du bisher hast, aber zum Auslesen der Bildinformationen kannst du
IDirect3DSurface9::LockRect verwenden. Dann schreibst du den Wert aus LockedRect.Bits komplett in den Stream (Gröse = Surface.Width * Surface.Height * BytesPerPixel). Bei ARGB (oder jedem anderen "4 Byte per Pixel" Format) musst du den zum padden verwendeten Pitch Wert nicht beachten.
Um jetzt an die einzelnen Pixel zu kommen, berechnest du erstmal die Position des Pixels:
Stream.Position := (YPos * Surface.Width + XPos) * 4;
Danach liest du ein komplettes DWord aus:
Stream.ReadBuffer(Pixel, 4);
Und schließlich decodierst du den Pixel folgendermaßen über eine simple Bitmaske:
Delphi-Quellcode:
procedure COLOR_DECODE_ARGB(Color: DWord; var A, R, G, B: Byte); inline;
begin
A := (Color and $FF000000) shr 24;
R := (Color and $00FF0000) shr 16;
G := (Color and $0000FF00) shr 8;
B := (Color and $000000FF);
end;
Danke .. Hab ich alles schon
Ich speichere das Bitmap
D3DXSaveSurfaceToFileW('D:\paper.bmp', D3DXIFF_BMP, scrSurface, nil, @ARect);
lade es zurück.. in den Stream
gs := TFileStream.Create('D:\paper.bmp', fmOpenRead or fmShareDenyNone);
und werte es mit meiner function GetColor aus.
Das Ergebnis ist aber nicht das was auf die Platte geschrieben wurde denn dann müßten die Farben stimmen.
Delphi-Quellcode:
pos := (y * Screen.PrimaryMonitor.BoundsRect.Right + x) * 4;
Stream.Position := pos
Delphi-Quellcode:
bu : Array[0..3] of byte;
gs.Read(bu, sizeof(bu));
Delphi-Quellcode:
function ColorARGB(AlphaChannel: byte; ColrRGB: COLORREF): COLORREF;
var
bytestruct: COLORBYTES;
begin
bytestruct.A := AlphaChannel;
bytestruct.R := GetRValue(ColrRGB);
bytestruct.G := GetGValue(ColrRGB);
bytestruct.B := GetBValue(ColrRGB);
Result := MakeColor(bytestruct.A, bytestruct.R, bytestruct.G, bytestruct.B);
end;
IDirect3DSurface9::LockRect brauche ich nicht da die Daten über D3DXSaveSurfaceToFileW abgespeichert werden.
Aber auch damit habe ich es versucht.
Delphi-Quellcode:
p := Cardinal(LockedRect.pBits);
for i := 0 to Screen.Height - 1 do
begin
CopyMemory(BMP.ScanLine[i], Ptr(p), Screen.Width * BitsPerPixel div 8);
p := p + LockedRect.Pitch;
end;
Und dann das BMP in eine Datei geschrieben.
Wie ich das jetzt direct in den Stream schreibe ist mir noch nicht klar. (so das ich sie im Speicher habe)
aber alle Versuche schlagen fehl die Farben stimmen nicht.
Sobald ich diese wieder einlade.
gruss