Surface Stream

[EWeiss]

Ich möchte mein Surface (nein nicht das man kaufen kann) also das von DirectX in einen Stream(TStream) kopieren.

Ich finde nur Möglichkeiten unter SlimDX

Zitat:

DataRectangle dr = s.LockRectangle(LockFlags.None);
DataStream gs = dr.Data;

Ich möchte das aber unter Delphi bewerkstelligen. DirectX

Was fehlt mir da ..

SDK SlimDX

Code:

namespace SlimDX
{
  // Summary:
  //     A DataRectangle provides supporting information for a SlimDX.DataStream whose
  //     data is organized within two dimensions (a rectangle).
  public class DataRectangle
  {
    // Summary:
    //     Initializes a new instance of the SlimDX.DataRectangle class.
    //
    // Parameters:
    //   pitch:
    //     The row pitch, in bytes.
    //
    //   data:
    //     The data.
    public DataRectangle(int pitch, DataStream data);

    // Summary:
    //     Gets the SlimDX.DataStream containing the actual data bytes.
    public DataStream Data { get; }
    //
    // Summary:
    //     Gets or sets the number of bytes of data between two consecutive (1D) rows
    //     of data.
    public int Pitch { get; set; }
  }
}

Code:

    // Summary:
    //     Reads a sequence of bytes from the current stream and advances the position
    //     within the stream by the number of bytes read.
    //
    // Parameters:
    //   buffer:
    //     An array of values to be read from the stream.
    //
    //   offset:
    //     The zero-based byte offset in buffer at which to begin storing the data read
    //     from the current stream.
    //
    //   count:
    //     The maximum number of bytes to be read from the current stream.
    //
    // Returns:
    //     The number of bytes read from the stream.
    //
    // Exceptions:
    //   System.NotSupportedException:
    //     This stream does not support reading.
    //
    //   System.ArgumentNullException:
    //     buffer is a null reference.
    //
    //   System.ArgumentOutOfRangeException:
    //     offset or count is negative.
    //
    //   System.ArgumentException:
    //     The sum of offset and count is greater than the buffer length.
    public override int Read(byte[] buffer, int offset, int count);

gruss

[EWeiss]

Hab das Surface jetzt erst mal temporär in ein Bitmap gespeichert.
Das wird auf die Platte geschaufelt so alle 250 MS

wenn ich aber die Farben ermittle sind es immer die falschen

Delphi-Quellcode:

function TCapX.GetColor(gs: TMemoryStream; List: TStrings): TColor;
var
  bu : Array[0..3] of byte;
  i: Integer;
  pos: Integer;
begin

  i := 0;
  r := 0;
  g := 0;
  b := 0;

  for pos := 0 to List.Count - 1 do
  begin
    gs.Position := strToInt(List.Strings[pos]);
    //gs.Seek(gs.Position, 4);
    gs.Read(bu, 0);
    r := r + bu[2];
    g := g + bu[1];
    b := b + bu[0];
    inc(I);
  end;

  Result := RGB2TColor(r div i , g div i , b div i);

end;

sorry hab da mit TMemoryStream noch nichts am hut gehabt.

Wollte die Funktion eigentlich so auslegen was aber mit Listen nicht funktioniert.

for Pos in List
gruss

[sx2008]

Was ist das denn?
gs.Read(bu, 0);
1. sollte man Readbuffer statt Read verwenden und 2. muss das zweite Argument die Anzahl der zu lesenden Bytes enthalten (also sizeof(bu)).

[himitsu]

Zitat von sx2008:

1. sollte man Readbuffer statt Read verwenden

Read liest "maximal" soviele Bytes, wie angegeben und bei weniger (z.B. Ende des Streams) erkennt man das am Result, was er aber nicht auswertet.

ReadBuffer liest genau so viel, wie man angibt und bei weniger, gibt es eine Exception.

[EWeiss]

hmm Danke nur was ist jetzt richtig

gruss

[EWeiss]

Sorry Change denke hab ne Lösung gefunden.

gruss