Delphi7 mit nur einer Unit Unicode fähig machen

[jaenicke]

Da dort keine besonderen Units verwendet werden, sollte das kein Problem sein.

[Delphi-Laie]

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

Bei mir scheitert es an der Zeile

{$ifdef CamSpy}oCamSpyMem,{$endif} , weil der Compiler die Unit nicht findet.

Entferne ich die Zeile (auskommentieren), hilft das leider auch nicht weiter, dann scheitert es an

procedure Addlog(const Value:string{$ifdef CamSpy};aType:TGlobalLogType=cst_Info{$endif}); .

Das Phänomen tritt auf, egal ob ich Delphi 4-7 oder Turbo-Delphi verwende.

Schade, aber vielleicht weiß ja jemand Rat.

[uligerhardt]

Zitat von Delphi-Laie:

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

Bei mir scheitert es an der Zeile

{$ifdef CamSpy}oCamSpyMem,{$endif} , weil der Compiler die Unit nicht findet.

Entferne ich die Zeile (auskommentieren), hilft das leider auch nicht weiter, dann scheitert es an

procedure Addlog(const Value:string{$ifdef CamSpy};aType:TGlobalLogType=cst_Info{$endif}); .

Das Phänomen tritt auf, egal ob ich Delphi 4-7 oder Turbo-Delphi verwende.

Schade, aber vielleicht weiß ja jemand Rat.

Ich hab mir das Teil nicht runtergeladen, aber scheinbar ist in den Projekteinstellungen "CamSpy" definiert. Wenn du das rausnimmst, sollte es besser werden.

[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?!?

[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....

[derMischka]

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?!?

Hätte nicht gedacht, dass mein Logging so viele Probleme bereitet...

Ihr müsst einfach die {$define CamSpy} Zeile auskommentieren

der Mischka

[somby]

Hallo Delphi-Mitstreiter,
habe in der letzten Version (24.05.2016) von oWinApiUnicode.pas einige Fehler beseitigt
und einige Funktionen hinzugefügt:
TToolbar - Control funktioniert,
TRichEdit - Control funktioniert (hier war wichtig, dass im WideString-Modus der Klassenname anders ist),
TListView - Control funktioniert,
Sowohl in TListView und TTreeView funktioniert der Label-Edit
Funktion SetClipboardData wurde hinzugefügt.

Wichtig: einige Messages (z.B. SB_SETTEXT und TB_ENABLEBUTTON, beide WM_USER+1)
besitzen gleiche WM_USER-Werte, hier muß duch den Klassenname
unterschieden werden.

Hallo Mischka, vielen Dank für dieses wunderbare Tool. Ich hoffe wir können
das noch um einiges erweitern.
In der Anlage meine geänderte Variante.

Gruß
somby