Совместимость

← →
Zloimu (2003-12-23 08:47) [0]

Подскажите пожалуйста, как передавать информацию из Delphi в
базу данных FoxPro 2.5 с сохранением кодировки.

← →
chtr © (2003-12-23 09:05) [1]

function ConvertAnsiToOem(const S : string) : string;
var
Source, Dest : array[0..255] of Char;
begin
SetLength(Result, Length(S));
if Length(Result) > 0 then
AnsiToOem(PChar(S), PChar(Result));
if Length(Result) > 0 then
begin
AnsiToOem(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
end;

function ConvertOemToAnsi(const S : string) : string;
var
Source, Dest : array[0..255] of Char;
begin
SetLength(Result, Length(S));
if Length(Result) > 0 then
OemToAnsi(PChar(S), PChar(Result));
if Length(Result) > 0 then
begin
OemToAnsi(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
end;

← →
zloimu (2003-12-23 09:11) [2]

Огромное спасибо, постараюсь разобраться.

← →
KSergey © (2003-12-23 09:16) [3]

Вообще-то проще выставить правильную локализацию в дровах доступа к DB.
К стати, чем пользуемся для этого самого доступа? Например, в Halcyon есть готовый крыж "конвертировать" - и тогда все телемаркет! ;)

А BDE кстати был какой-то трабл с кодировками dbf - то ли ANSI кодировки не было, то ли у меня руки кривые.

Совместимость Найти похожие ветки