|
Вопрос # 4 681/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Возникла проблема работы компоненты TDataFile для записи/чтения данных в Delphi 2010 (примерный аналог .ini-файла )
При чтении записанных данных, они не полностью читаются
Не подскажите в чем проблема ???
Файл с исходниками компоненты прилагаю...
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: Бабенко Олег (статус: Посетитель)
Вопрос отправлен: 25 октября 2010, 13:40
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Бабенко Олег!
Вся загвоздка в том, что я и писал - разработчик не только пишет на смеси с++ и делфи, а ещё и не знает базовых принципов. Он свято верит, что размер символа (то есть char) будет 1 байт. Всегда:) А начиная с 2009 делфи (2007 вроде нет ещё, не помню точно), а 2010 точно размер символа два байта! (юникод как никак). Вот почему я и спросил о том, записывается ли только половина строки.
теперь начнем решать. Найдем такую функцию
procedure TDataFile.WriteString(Section, Ident, Value: string);
var
pBuf : pChar;
begin
try
pBuf := StrNew(PChar(Value));
WriteData(Section, Ident, pBuf, StrLen(pBuf) + 1);
finally
StrDispose(pBuf);
end;
end;
Здесь хорошо видно +1 - то есть разрабочик позаботился, что бы хватило места (классика в с++), но разрабочик на делфи так бы не делал никогда, он даже бы не выделял лишнюю строку.
Правильно нужно писать так
procedure TDataFile.WriteString(Section, Ident, Value: string);
var
pBuf : pChar;
begin
try
pBuf := StrNew(PChar(Value));
WriteData(Section, Ident, pBuf, (StrLen(pBuf) + 1) * sizeof(char));
finally
StrDispose(pBuf);
end;
end;
Этот код будет работать в всех версиях делфи адекватно, но файл записанный в 2010 делфи может не прочитаться в 7. (и на оборот)
А вот с чтением... там ногу сломать можно, шифрования всякие и так далее, но там вроде ничего исправлять не нужно. Пробуйте.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 25 октября 2010, 14:51
Оценка за ответ: 5
Комментарий к оценке: Огромное спасибо!
Все работает !
|
Мини-форум вопроса
Всего сообщений: 9; последнее сообщение — 25 октября 2010, 14:43; участников в обсуждении: 3.
|
|
Вадим К (статус: Академик), 25 октября 2010, 13:52 [#1]:
Опишите Ваши действия/код в том случае, когда данные "читаются не полностью" и что именно имеется ввиду - записывали 100 байт строку, прочиталось 20? или записанные переменные потерялись?
Сам компонент посмотрел, видимо, что автор пишет не на делфи, а на С++ делфи (есть такая болезнь) - напрочь не знает о том, что есть var параметры и вовсю использует указатели.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
min@y™ (статус: Доктор наук), 25 октября 2010, 13:59 [#2]:
Цитата (Вадим К):
на С++ делфи
Это чо за ботва? Builder, что ли?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 25 октября 2010, 14:09 [#3]:
не, это имеется ввиду писать на делфи, но визуально выглядит как с++. То есть, не используются возможности делфи, а недостающие возможности эмулируются. Точно также бывает и на оборот, когда на плюсах пишут как на делфи. или на жаве как на плюсах.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 25 октября 2010, 14:18 [#4]:
Цитата (Вадим К):
не, это имеется ввиду писать на делфи, но визуально выглядит как с++.
Понял. У меня тоже привычка есть - ставить скобки после имени функции без параметров. Но не более.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Бабенко Олег (статус: Посетитель), 25 октября 2010, 14:26 [#5]:
Вадим К:
Опишите Ваши действия/код в том случае, когда данные "читаются не полностью" и что именно имеется ввиду - записывали 100 байт строку, прочиталось 20? или записанные переменные потерялись?
Записываю
/raid/OTHER/FB/K
Читает
/raid/OTH
|
|
|
Вадим К (статус: Академик), 25 октября 2010, 14:33 [#6]:
То есть, портятся только строковые данные?
Тогда я знаю, где причина.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Бабенко Олег (статус: Посетитель), 25 октября 2010, 14:38 [#7]:
И в чем ???
|
|
|
min@y™ (статус: Доктор наук), 25 октября 2010, 14:43 [#8]:
Цитата (Бабенко Олег):
И в чем ???
В том, что нефиг юзать бажные компоненты и классы. 
Особенно, если они были написаны ещё в 2001 году и не заточены под Unicode.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Бабенко Олег (статус: Посетитель), 25 октября 2010, 14:43 [#9]:
Так еще из Delphi 6 висит
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
