Move Anweisung

[himitsu]

Jupp, System.Move arbeitet byteweise, aber eventuell konvertiert Sage CL die Datensätze.

[MrSpock]

Hallo himitsu,

danke erstmal.

Bin jetzt einen Schritt weiter. Noch tiefer unten im Sumpf der COM-Objekte gibt es Anweisungen der Form:

Delphi-Quellcode:

procedure myKHKbinRead (ObjFileIO : _CFileIO;
           ichannel,
                        ikeyOffset : SmallInt;
              sKey :WideString;
                        sbuffer :Pchar;
                        var irecNb: LongInt);
var
   StrBuffer : AnsiString;
begin
   ObjFileIO.objFile(iChannel).binRead (ikeyOffset ,sKey, irecNb);
   strBuffer := ObjFileIO.objFile(iChannel).strGetFieldBuffer
      (1,ObjFileIO.objFile(iChannel).lngRecordLen);
   if irecNb > 0 then
      Move(StrBuffer[1],sBuffer^,ObjFileIO.objFile(iChannel).lngRecordLen);
end;

Der StrBuffer war bisher als String definiert. Die Funktion ObjFileIO.objFile(iChannel).strGetFieldBuffer gibt aber einen WideString zurück (wie bei COM Objekten üblich). Hier wurde also früher die Konvertiereung zurück in "Small" Strings durchgeführt. Jetzt habe ich dort String durch AnsiString ersetzt (und in allen anderen Lesefunktionen auch) und jetzt sieht es gleich wieder besser aus, wenn ich auch in TCl4_a10110 alle Strings durch AnsiStrings ersetze.

[himitsu]

Wenn du jetzt Unicode zur Verfügung hast, dann könntest du dieses ja nun auch nutzen?

Also alles zurück auf String und dann vermutlich noch diese Stelle anpassen:
Move(StrBuffer[1], sBuffer^, ObjFileIO.objFile(iChannel).lngRecordLen * SizeOf(Char)); Also ich hätte hier erwartet, daß die letzte Hälfte der Datensätze unter Unicode fehlt.

[MrSpock]

Nein, das funktioniert so nicht, weil in dem Record ja auch andere Typen sind. Wenn ich nicht die Rückverwandlung in kurze Strings durchführe, weiß ich nicht, was mit den anderen Typen bei der Übergabe passiert. Wie gesagt intern arbeitet die CL weiterhin mit 1 Byte Char.

[himitsu]

OK, der TCl4_a10110 bestand ja nur aus Char, da wäre es gegangen.

Also, aus einem Byte würde ein Word, aber größere Typen würden nicht funktionieren

Word würde so zu LongWord, aber aus $xxyy würde $00xx00yy

Wobei ich bei allen Werten über $7f, 127 und #127 aufpassen würde, da diese bei einer Unicode>Ansi-Umwandlung zerstört werden könnten, wenn eine andere Codepage genutzt würde, welche genutzt wurde, um auf der anderen Seite der COM-Schnittstelle die Bytes nach WideString zu konvertieren.