Скачать: CL | DM;

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

← →
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 есть готовый крыж "конвертировать" - и тогда все телемаркет! ;)

---

← →
Anatoly Podgoretsky ©   (2003-12-23 09:26) [4]

KSergey © (23.12.03 09:16) [3]
У FoxPro 2.5 такое понятие отсутствует, это началось с 2.6

---

← →
REA ©   (2003-12-23 10:47) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c