| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Совместимость [D5, D6]

Zloimu ©   (2003-12-23 08:47:00) 

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

---

REA   (2003-12-23 10:47:00) [1]

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

---

Anatoly Podgoretsky   (2003-12-23 09:26:00) [2]

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

---

KSergey   (2003-12-23 09:16:00) [3]

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

---

zloimu   (2003-12-23 09:11:00) [4]

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

---

chtr   (2003-12-23 09:05:00) [5]

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;

---

Наверх