Problem mit FastCode und CopyMemory

[lbccaleb]

Hallo,

Ich benutze folgende Funktion um Text in die Zwischenablage zu kopieren:

Delphi-Quellcode:

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

Das funktioniert auch immer Problemlos.
Aufeinmal allerdings nicht mehr, und die Fehlersuche ging los.

Durch das debuggen habe ich dann bemerkt, dass die eingebundene Unit FastCode dafür verantwortlich ist, dass dort irgendein Problem bei CopyMemory vorliegt.
Nur weil diese Funktion jetzt nicht geht, wollte ich allerdings nicht auf die FastCode Unit verzichten.

Gibt es also Jemanden der sich mit Assembler besser auskennt als ich, und den Fehler finden kann?
Beim Aufruf von CopyMemory springt er in die Unit FastMove in die Funktion "Forwards_SSE3_10;". Komischerweise rufe ich an anderen Stellen auch CopyMemory auf, und habe dort allerdings nicht die Probleme.

Kann es vllt. auch sein, das ich ein Fehler bei der Parameterübergabe von CopyMemory habe?

mfg Martin


Edit:
Achso, das Problem äußert sich übrigens darin, dass unter Verwendung von FastCode nichts mehr in die Zwischenablage kopiert wird.

[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

[Sir Rufo]

Wenn du einen nullterminierten String übergeben musst, dann benötigst du noch ein Zeichen mehr als Speicher

Aber ansonsten passt das schon

[Bernhard Geyer]

Zitat von lbccaleb:

Bei mir fast alles immer nonVCL

Viel VCL wird bei TClipboard nicht eingebunden (nur Forms.pas).