Obwohl möglich funktioniert das so nicht.

markieren

Delphi-Quellcode:

var
  BufferSize: dword;
  sBuffer: string;
//....
sBuffer.assign(BufferSize, 0);

Zitat:

[DCC Fehler] uMain.pas(1197): E2018 Record, Objekt oder Klassentyp erforderlich

Boahh ehhh

gruss

Korrekt, ein string.Assign gibt es nicht. Was willst du denn damit erreichen? Eventuell das hier?

sBuffer := string.Create(#0, BufferSize);

Zitat von Uwe Raabe:

Korrekt, ein string.Assign gibt es nicht. Was willst du denn damit erreichen? Eventuell das hier?

sBuffer := string.Create(#0, BufferSize);

Zitat:

sBuffer.assign(BufferSize, 0);

Kommt von C++

Wenn das so funktioniert ?

EDIT:
Ich denke mal das ist ein einfaches
sBuffer := IntToStr(BufferSize);

gruss

Zitat von EWeiss:

Kommt von C++

Wenn das so funktioniert ?

Wie gesagt, kommt drauf an, was du erreichen willst. Einen String der Länge BufferSize gefüllt mit #0-Zeichen?

Für ältere Delphi-Versionen geht auch

sBuffer := StringOfChar(#0, BufferSize);

oder gleich ein simples

SetLength(sBuffer, BufferSize); // die Nullen kommen dann von ganz allein

Zitat von Uwe Raabe:

Zitat von EWeiss:

Kommt von C++

Wenn das so funktioniert ?

Wie gesagt, kommt drauf an, was du erreichen willst. Einen String der Länge BufferSize gefüllt mit #0-Zeichen?

Für ältere Delphi-Versionen geht auch

sBuffer := StringOfChar(#0, BufferSize);

oder gleich ein simples

SetLength(sBuffer, BufferSize); // die Nullen kommen dann von ganz allein

Danke
Ich werde es mal testen denn ich sehe schon meine Annahme geht so nicht.

gruss

Was hast du denn überhaupt vor?

Zitat von Neutral General:

Was hast du denn überhaupt vor?

Tja diese Zeile von C++ nach Delphi zu übersetzen mehr nicht

Setlength funktioniert nicht oder aber ich habe schon vorher ein Problem.
Error Code 998.
Wenn ich versuche den Speicher mit MoveMemory zu verschieben.

MoveMemory(pGlobalBuffer, @sBuffer, BufferSize); Muss das nochmal prüfen.

gruss

Hier mal mein Code
Ich versuche die PNG Datei Binär zu lesen.

zusammenfalten · markieren

Delphi-Quellcode:

function TAnimatePng.FLof(hFile: THandle): DWORD;
var
  dwFileSize: DWORD;
begin
  dwFileSize := 0;

  if hFile <> 0 then
  begin
    if GetFileType(hFile) = FILE_TYPE_DISK then
    begin
      dwFileSize := GetFileSize(hFile, nil);
      if dwFileSize = INVALID_FILE_SIZE then
        dwFileSize := 0;
    end;
  end;
  result := dwFileSize;
end;

markieren

Delphi-Quellcode:

function TAnimatePng.FSeek(hFile: THandle; PosByte: DWord): LongInt;
var
  li: integer;
begin

  li := PosByte;
  Result := 0;
  if SetFilePointer(hFile, li, nil, FILE_BEGIN) < 0 then
    Result := GetLastError();
end;

zusammenfalten · markieren

Delphi-Quellcode:

function TAnimatePng.FGet(hFile: THandle; var sBuffer: string): LongInt;
var
  ByttesReaded: DWORD;
  LenBuf: DWORD;
begin

  Result := 0;
  if hFile <> 0 then
  begin
    ByttesReaded := 0;
    LenBuf := Length(sBuffer);
    if LenBuf <> 0 then
    begin
      if ReadFile(hFile, sBuffer, LenBuf, ByttesReaded, 0) = false then
        Result := GetLastError();
    end;
  end;
end;

zusammenfalten · markieren

Delphi-Quellcode:

function TAnimatePng.FGetAt(hFile: THandle; PosByte: DWORD; var sBuffer: string): LongInt;
var
  ErrCode: LongInt;
begin

  ErrCode := 0;

  ErrCode := FSeek(hFile, PosByte);
  if ErrCode = 0 then
    ErrCode := FGet(hFile, sBuffer);
  result := ErrCode;
end;

zusammenfalten · markieren

Delphi-Quellcode:

BufferSize := FLof(hFileIn) - anih.offset - sizeof(anih) + 1;
SetLength(sBuffer, BufferSize); // ########### Der Anfang
if FGetAt(hFileIn, anih.offset - 1, sBuffer) = S_OK then
begin
  // sBuffer 2 laden
  Global := GlobalAlloc(GMEM_MOVEABLE or GMEM_NODISCARD, BufferSize);
  if Global <> 0 then
  begin
    pGlobalBuffer := GlobalLock(Global);
    if Assigned(pGlobalBuffer) then
    begin
      MoveMemory(pGlobalBuffer, @sBuffer, BufferSize);
      if CreateStreamOnHGlobal(Global, False, pImageStream) = S_OK then
      begin
        if GDIP_CreateBitmapFromStream(pImageStream, hImage) = S_OK then
        begin
          GDIP_DrawImageRectI(Graphics, hImage, anih.Width, 0,
            anih.Width * anih.Frame - anih.Width, anih.Height);
          GDIP_DisposeImage(cardinal(hImage));
        end;
        pImageStream := nil;
      end;
      GlobalUnlock(Cardinal(pGlobalBuffer));
    end;
    GlobalFree(Global);
  end;
end;

gruss

Wieso benutzt du als Buffer einen string? Das kann doch nur schief gehen.

Zitat von Uwe Raabe:

Wieso benutzt du als Buffer einen string? Das kann doch nur schief gehen.

Dann nehme ich nen PWideChar.. oder besser PWideString?

gruss