The following example shows how to add OEM Charset translation to daADO.pas:
1 2 3 4 5 6 7 8 9 10 11 |
function TdaChildADOQuery.Translate(Src, Dest: PChar; ToOem: Boolean): Integer; begin if (Src <> nil) then begin if ToOem then CharToOemBuff(Src, Dest, StrLen(Src)+1) else OemToCharBuff(Src, Dest, StrLen(Src)+1); Result:=StrLen(Dest); end else Result:=0; end; |