Alternative für String Assign

[EWeiss]

Obwohl möglich funktioniert das so nicht.

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

[Uwe Raabe]

Korrekt, ein

Delphi-Quellcode:

string.Assign

gibt es nicht. Was willst du denn damit erreichen? Eventuell das hier?

Delphi-Quellcode:

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

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1365227)

Korrekt, ein

Delphi-Quellcode:

string.Assign

gibt es nicht. Was willst du denn damit erreichen? Eventuell das hier?

Delphi-Quellcode:

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

Delphi-Quellcode:

sBuffer := IntToStr(BufferSize);

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1365229)

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

Delphi-Quellcode:

sBuffer := StringOfChar(#0, BufferSize);

oder gleich ein simples

Delphi-Quellcode:

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

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1365236)

Zitat:

Zitat von EWeiss (Beitrag 1365229)

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

Delphi-Quellcode:

sBuffer := StringOfChar(#0, BufferSize);

oder gleich ein simples

Delphi-Quellcode:

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

[Neutral General]

Was hast du denn überhaupt vor?

[EWeiss]

Zitat:

Zitat von Neutral General (Beitrag 1365239)

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.

Delphi-Quellcode:

MoveMemory(pGlobalBuffer, @sBuffer, BufferSize);

Muss das nochmal prüfen.

gruss

[EWeiss]

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

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;

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;

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;

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;

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

[Uwe Raabe]

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

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1365245)

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

Dann nehme ich nen PWideChar.. oder besser PWideString?

gruss