Problem mit FastCode und CopyMemory

[lbccaleb]

Aus einem mir absolut nicht bekannten Grund, funktioniert es jetzt auf einmal.
Hat sich also erledigt

[Bernhard Geyer]

Delphi-Quellcode:

dwSize := Length(szText) + 1;
    if dwSize <> 0 then begin;

Mmmmh. Ob das sinnvoll? Leerer Text liefert 1 zurück. Ich denke der Code sollte nur kopieren wenn wirklich ein Text vorliegt.

Und ab D2009 krachts eh da Char = 2 Byte ist.

[p80286]

Verwechselst Du da nicht sizeof und length ?
Soweit ich weiß, funktioniert length immer wie gewünscht.

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

Verwechselst Du da nicht sizeof und length ?
Soweit ich weiß, funktioniert length immer wie gewünscht.

Gruß
K-H

Length( 'Text' ) ergibt - egal ob Unicode oder nicht - immer 4 .
Den benötigten Speicher berechnet man aber sicher mit Length( 'Text' ) * SizeOf( Char ) , denn der ist bei nicht Unicode 4 und als Unicode 8

[lbccaleb]

Zitat von Sir Rufo:

Zitat von p80286:

Verwechselst Du da nicht sizeof und length ?
Soweit ich weiß, funktioniert length immer wie gewünscht.

Gruß
K-H

Length( 'Text' ) ergibt - egal ob Unicode oder nicht - immer 4 .
Den benötigten Speicher berechnet man aber sicher mit Length( 'Text' ) * SizeOf( Char ) , denn der ist bei nicht Unicode 4 und als Unicode 8

Also müsste ich so den Speicher reservieren?

Delphi-Quellcode:

function SetClipText(szText: string): Boolean;
var
  pData:  DWORD;
  dwSize: DWORD;
begin;
  Result := FALSE;
  OpenClipBoard(0);
  try
    EmptyClipboard;
    if Length(szText) > 0 then begin;
      dwSize := Length(szText) * SizeOf(Char);
      pData := GlobalAlloc(MEM_COMMIT, dwSize);
      try
        CopyMemory(POINTER(pData), PChar(szText), dwSize);
        Result := (SetClipBoardData(CF_TEXT, pData) <> 0);
      except
        GlobalFree(pData);
        raise;
      end;
    end;
  finally
    CloseClipBoard;
  end;
end;

[Bernhard Geyer]

Wieso überhaupt eine eigene Funktion?

Clipboard.AsText := szText

[lbccaleb]

Bei mir fast alles immer nonVCL