Delphi7 mit nur einer Unit Unicode fähig machen

[Delphi-Laie]

Zitat von Lemmy:

Zitat von Delphi-Laie:

Leute, was habt Ihr für Zauberdelphis, daß Ihr mit der Unit zurechtkommt?
..

{$ifdef CamSpy}oCamSpyMem,{$endif}

ganz oben in der Unit steht

{$define CamSpy}  //my own logging
auskommentieren und gut ist?!?

Schön wäre es. Das hatte ich auch schon probiert, jedoch vergaß ich, das mit aufzulisten.

Dann scheitert es (erstmalig) an

ss := AnsiToUtf8(ss); (Delphi 4 und 5)

bzw. an

addlog('Exception in DispatchMessageUniCode(MsgNum='+inttostr(lpMsg.message)+') '+e.ClassName+' '+e.Message,cst_Exception); (ab Delphi 6).

[Delphi-Laie]

Mit folgenden Änderungen ist die Unit bei Delphi 6 & 7 compilierbar:

Zeile 30: //{$define CamSpy} //my own logging

Zeile 1719: addlog('Exception in DispatchMessageUniCode(MsgNum='+inttostr(lpMsg.mes sage)+') '+e.ClassName+' '+e.Message{,cst_Exception});//letzter Parameter zuviel?

Zeile 1746: Result := windows.GetCharacterPlacementW(DC,@wsbuf[0],boolean(ii),boolean(p4),p5,p6);//mit Boolean-Konvertierung klappt es

Bei Delphi 7 kommen zudem unzählige Warnungen.

[Delphi-Laie]

Bei Turbo-Delphi muß es ab Zeile 1740 so aussehen:

Delphi-Quellcode:

function GetCharacterPlacementUnicode(DC: HDC; p2: PChar; p3, p4: Integer;
  var p5: TagGCP_ResultsW; p6: cardinal): cardinal; stdcall;
var wsbuf : TDynWSbuf;
    ii    : integer;
begin
  ii     := ConvertToWideChar(p2,p3,wsbuf,false);
  Result := windows.GetCharacterPlacementW(DC,@wsbuf[0],ii,p4,p5,p6);
end;

[Lemmy]

Zitat von Delphi-Laie:

Schön wäre es. Das hatte ich auch schon probiert, jedoch vergaß ich, das mit aufzulisten.

ah.. und ich habe mich schon gewundert....