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

сохранение текста в файл в формате Unicode   Найти похожие ветки 

← →
Xytr@s ©   (2006-07-11 20:40) [0]

собсна как? использую TStringList. создаю базу XML
все книжки какие есть облазил так и не нашел как это делается =(

---

← →
tesseract ©   (2006-07-11 21:13) [1]

логично предположмть - StringToWideChar

---

← →
Xytr@s ©   (2006-07-12 17:29) [2]

рискую быть посланным в хэлп но все же можно подробней? а то у меня никак не выходит каменный цветок =(

---

← →
han_malign ©   (2006-07-12 17:39) [3]

не в Unicode, а в UTF8...

---

← →
Xytr@s ©   (2006-07-12 17:53) [4]

to han_malign
проще говоря нужен такой же эффект как при сохранении в вордпаде с фильтром "текстовый документ в юникоде"

---

← →
han_malign ©   (2006-07-12 18:09) [5]

var h: THandle;
    sz: DWORD;
     _s: UTF8String;//WideString;
begin
   _s:= StringList.Text;
   h:= CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
   if(h <> INVALID_HANDLE_VALUE)then begin
         WriteFile(h, Pointer(_s)^, Length(_s)*sizeof(_s[1]){для WideString}, sz);
         CloseHandle(h)
   end;
  ..............

---

← →
Xytr@s ©   (2006-07-12 18:59) [6]

to han_malign
пишет что недостаточно параметров в WriteFile

---

← →
Xytr@s ©   (2006-07-12 21:37) [7]

я не умею с указателями обращаться =( подскажите плиз! очень надо

---

← →
palva ©   (2006-07-12 23:46) [8]

Следующий пример выводит именно Unicod, а не UTF8. То есть это ответ на вопрос, сформулированный в [4].

{$APPTYPE CONSOLE}
const
 prefix: Word = $FEFF;
 endl: LongWord = $000A000D;
var
 ws: WideString;
 f: File;
begin
 AssignFile(f, "temp.txt");
 Rewrite(f, 1);
 BlockWrite(f, prefix, 2);

 ws := "The first string";
 BlockWrite(f, ws[1], Length(ws)*2);
 BlockWrite(f, endl, 4);

 ws := "Вторая строка";
 BlockWrite(f, ws[1], Length(ws)*2);
 BlockWrite(f, endl, 4);

 CloseFile(f);
end.


---

← →
Xytr@s ©   (2006-07-13 12:36) [9]

to palva
спасибки =) все работает!

---

← →
Desdechado ©   (2006-07-13 13:03) [10]

Мне одно интересно. TstringList не поддерживает юникод. Зачем тогда в нем выгружать?

---

← →
Xytr@s ©   (2006-07-13 22:46) [11]

to Desdechado
наверно потому что я по-другому не умею =) гыы

---

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

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



Память: 0.47 MB
Время: 0.039 c