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

Вопрос по работе с CharToOem. Странно(для меня)....   Найти похожие ветки 

← →
oleon   (2002-12-28 12:45) [0]

var
TheString : PChar;
ProduceStr : string;
...................
...............
Почему вот так выдает ошибку?
TheString := PChar("ДОКУМЕНТ");
CharToOem(TheString, TheString);
А когда вот так пишу :
ProduceStr := "ИЗГ,"" + DMPrihod.qrUpload.FieldByName("ProducerID").AsString +
"",""+ DMPrihod.qrUpload.FieldByName("ProducerName").AsString +
"",""+ DMPrihod.qrUpload.FieldByName("CountryID").AsString + """;
TheString := PChar(ProduceStr);
CharToOem(TheString, TheString);

То ошибки нет...

---

← →
Alexander Vasjuk   (2002-12-28 12:50) [1]

а ты не пытаешься случайно привести пустую строку?

---

← →
oleon   (2002-12-28 12:55) [2]

Так нет же вот я пишу
TheString := PChar("ДОКУМЕНТ");
CharToOem(TheString, TheString);

А мне пишет Access Violation

---

← →
RWolf   (2002-12-28 12:55) [3]

хм... вообще-то работает... проверил сейчас

---

← →
oleon   (2002-12-28 12:59) [4]

Попробую тогда перезагрузиться!

---

← →
Anatoly Podgoretsky ©   (2002-12-28 13:01) [5]

Тем что ты создаешь константу. "ДОКУМЕНТ" размещается в памяти помеченной как readonly
Во втором случае, указывается указатель на строку в нормальной памяти и указатель на нее помещается в TheString

---

← →
oleon   (2002-12-28 13:10) [6]

Подскажите пожалуйста как тогда нужно написать чтобы заработало?

---

← →
Anatoly Podgoretsky ©   (2002-12-28 13:18) [7]

Твой вариант 2 рабочий

---

← →
oleon   (2002-12-28 13:23) [8]

Так мне нужно константу обработать...
Мне как-то нужно константу разместить в памяти не помеченной как ReadOnly... Вот я и спрашиваю как это покороче записать... Спасибо.

---

← →
Anatoly Podgoretsky ©   (2002-12-28 13:28) [9]

Сохраняй ее в String
var
TheString : string;

TheString := "ДОКУМЕНТ";
CharToOem(PChar(TheString), PChar(TheString));

---

← →
oleon   (2002-12-28 14:02) [10]

Все равно у меня на Win2000 Prof не работает,
а на Win98 ошибки нет, но не конвертирует...

ладно попробую извращнуться по другому

---

← →
RWolf   (2002-12-28 14:08) [11]

цитата из хелпа:

If the CharToOem function is being used as an ANSI function, the string can be translated in place by setting the lpszDst parameter to the same address as the lpszSrc parameter. This cannot be done if CharToOem is being used as a wide-character function.

Попробуй писать результат не в ту же самую строку.


src:=pchar("qwerty");
dst:=stralloc(length(src));
CharToOem(src,dst);
... юзаем результат ...
strdispose(dst);



---

← →
RWolf   (2002-12-28 14:11) [12]

поправочка:
dst:=stralloc(length(src)+1);


---

← →
oleon   (2002-12-28 14:39) [13]

Спасибо всем... узнал много нового для себя...

To RWolf
все заработало... спасибо!

---

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

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



Память: 0.48 MB
Время: 0.012 c