Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > конвертация из DOS-кодировки в Win

Автор: lexx67 29.11.2006, 09:32

народ, при перекачке данных из ДБФ в SQL-базу строки на русском языке переносятся, как краказябры. как конвертуть в нормальный вид, кто знает?
заранее все пасиб... smile

)

Автор: Akella 29.11.2006, 09:49

Код


function WinToDos(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  AnsiToOem(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

Автор: lexx67 29.11.2006, 10:09

пасиб....

)
выручил дружище...

Автор: 0LineGate 8.3.2007, 14:34

2 Akella
Помоги пожалуйста! Возникла проблема....
AnsiToOem и OemToAnsi нераспознаются! Что нуна добавить в uses? Срооочна, нужна помощь!

Автор: ama_kid 8.3.2007, 15:04

Цитата(0LineGate @ 8.3.2007, 14:34

)

Что нуна добавить в uses?

uses Windows. Это API-шные функции

Автор: 0LineGate 8.3.2007, 19:59

Хм, а можно конкретно листинг функций? А то работа приложения планируется не только под Винь... но и под Линукс... smile