Вопросы по Delphi (все версии) - часть 4 - [75] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4

Модерирует : ShIvADeSt
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

bigspoon

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Есть проект на Turbo Delphi 2006 для работы с MySQL.
Подключаюсь с помощью низкоуровневой библиотеки MySQLClasses (Компоненты для работы с MySQL, Автор: Виталий Лещенко, www.vitaliy.org).
Есть ли к кого-то опыт использования этой библиотеки?

Как обойти проблему отсутствия поддержки DataSource?
Все данные приходится вставлять через запросы...

Всего записей: 178 | Зарегистр. 24-02-2005 | Отправлено: 07:27 10-03-2009

greenpc

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

V1s1ter

Код:

procedure TVIniValue.SetIniFileName(const Value: String);
var
S: String;
begin
FIniFileName := Value;
S := Copy(FIniFileName, Length(FIniFileName)-4, 4);
S := AnsiLowerCase(S);
if S <> '.ini' then FIniFileName := FIniFileName+'.ini';
end;

а не будет ошибки если имя файл например <n.e>
может быть корректние так

Код:

procedure TVIniValue.SetIniFileName(const Value: String);
begin
FIniFileName := ChangeFileExt(AnsiLowerCase(Value), '.ini');
end;

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 13:31 10-03-2009

Grande

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Не знает ли кто, уважаемые знатоки, как программно удалить файлы WinVista (или Win7) из-под WinXP?
Поясню подробнее, чего я хочу:
Имеется WinXP и Win7 на одном диске. Потом Win7 сносится, но после нее на диске остаются несколько папок (например, $RECYCLE.BIN), которые удаляться не хотят. При помощи утилиты UnLocker победить этот трабл удается (при этом, правда, UnLocker признается, что заблокировавший хэндл неизвестен). Однако остается вопрос - как узнать, какой хэндл заблокировал эти файлы и, как следствие, как все же удалить файлы?
Спасибо.
P.S. Надеюсь, понятно объяснил

.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 18:18 10-03-2009 | Исправлено: Grande, 19:19 10-03-2009

Frodo_Torbins Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Grande Подозреваю, что их блокирует сама система. А удалить обычным Shift+Del загрузившись с какого-нибуть загрузочного сиди.
	Всего записей: 2319 \| Зарегистр. 24-05-2007 \| Отправлено: 19:26 10-03-2009

Grande

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Frodo_Torbins
Из-под WinPE не удается. Только из-под Linux'a PE либо чего-нибудь еще не Microsoft'овского.
То, что их блокирует система, не вызывает сомнений. Тут Вы правы.
Дело даже не в том - как удалить. Необходимо понять принцип их блокировки системой, дабы в будущем не наступать на эти грабли. Ведь это случилось уже на двух осях, что претендует на продолжение

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 19:31 10-03-2009 | Исправлено: Grande, 19:33 10-03-2009

V1s1ter

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

greenpc
Это смотря для каких целей.
Допустим я хочу чтобы имя файла было n.1, а другого n.2
в моем коде файлы будут названы n.1.ini и n.2.ini,
причем ошибка, если Вы намекаете на то, что строка имени всего 3 символа, не возникнет.
В Вашем коде будет один файл n.ini, но со смешаным содержанием, и возможным нежелательным перезаписыванием значений переменных.
Хотя на тот момент, я мог и не знать о функции ChangeFileExt

Кстати в Вашем коде совсем не обязательно вызывать AnsiLowerCase.
И на последок, я никогда не предентовал на оптимальный, гениальный, лучший и т.п. код.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 19:49 10-03-2009

fayzullin

Newbie

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Grande
Все дело в настройках прав на NTFS-папки. Из-под Windows у меня также не вышло и поэтому воспользовался самым простым решением - Linux. В Linux'е Вы работали из под root, я так понимаю, иначе не получилось бы и в нем. Сам тоже с этим сталкивался 2 дня назад.

Всего записей: 9 | Зарегистр. 12-09-2005 | Отправлено: 22:09 10-03-2009 | Исправлено: fayzullin, 22:11 10-03-2009

V1s1ter

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Grande
Информация на правах флуда

Для некоторых папок дастаточно прав администратора, для некоторых требуется права процесса на уровне ядра.
Алгоритм наверное такой, определяем идентификаторы процессов блокирующих доступ, приостанавливаем их, удаляем, возобновляем процесс.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 22:14 10-03-2009

Grande

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

V1s1ter

Цитата:

определяем идентификаторы процессов блокирующих доступ

Перерыл все процессы, подозрительные выкинул, результат нулевой. Что-то мелкомягкие придумали

Кстати, из-под WinPE тоже не удаляется! Как он (WinPE) догадался, что эти папки необходимо блокировать? Появился какой-то новый атрибут, который я не вижу? И с правами - выше прав, чам под WinPE, уже и быть не может.
А так хочется написать утилитку, дабы в дальнейшем не было подобных проблем.
Как только что получится - обязательно выложу исходники.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 08:43 11-03-2009 | Исправлено: Grande, 08:47 11-03-2009

Frodo_Torbins

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Grande

Цитата:

И с правами - выше прав, чам под WinPE, уже и быть не может.

Я после переустановки винды не мог получить доступ к некоторым старым папкам. Решилось толко установкой своего нового пользователя владельцем этих папок.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 19:08 11-03-2009

DmitryKz

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Такой вопрос по локализации приложений: использую DKLang на 2009 Дельфи. Устраивает всем, но... сталкиваюсь с тем, что иногда из-за разной длины русских и английских слов формы приобретают какой-то корявый вид. Не эстетичный, в-общем. Т.е., по идее, надо бы и сами формы и кантролы (их размеры, высоту, ширину) на них подгонять под каждый новый язык. Есть какие-то способы осуществления этого?
Кто-нибудь использовал встроенный в 2009 Дельфи транслятор? Как он?

Еще есть такой вопрос: как определить в 2009 Дельфи, юникодный текстовый файл или анси? Например, в Tnt компонентах была такой метод у TTntStringList - if TntStringList.LastFileCharSet in [csUnicode, csUnicodeSwapped]. Этот метод определял наличие юникода по BOM. Есть ли что-то подобное в 2009-м? Интересуют именно эти два момента: как определить наличие юникода, загрузив текстовый файл в StringList, или не загружая его в компонент.

Всего записей: 3145 | Зарегистр. 29-09-2005 | Отправлено: 04:46 12-03-2009 | Исправлено: DmitryKz, 04:51 12-03-2009

Grande

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Frodo_Torbins
Здесь нечто похожее: под Vista и Win7 все файлы и папки принадлежат скрытому юзеру System из (скрытого, опять же) домена NT Authority (или что-то похожее). TotalCommander довольно легко все эти безобразия чинит. Осталось поставить WinAPI hook и посмотреть, как он это делает. Ессно, о результатах будет доложено

.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 06:31 12-03-2009

Mandor Sawall

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

DmitryKz
Не знаю как там в Delphi2009, но в общем случае определение формата файла невозможно. Есть, например, UTF-файлы без BOM и т.д.
Как вы сам сказали, LastFileCharSet возвращает только есть ли у файла BOM или нет (т.е. какой у него BOM), но никак не определяет формат файла - например UTF-8 без BOM определяет как ANSI.

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 09:25 12-03-2009

Frodo_Torbins

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

DmitryKz

Цитата:

Еще есть такой вопрос: как определить в 2009 Дельфи, юникодный текстовый файл или анси?

В классе TEncoding реализовано определение кодировки по BOM. Если BOM отсутствует, то считается что у файла дефолтная кодировка (можно установить в свойствах проекта).

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 12:47 12-03-2009

alecksey1984

Junior Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

как можно втолкать в системный трей картинку определенного размера. насколько я понимаю действовать нужно как и Chameleon Clock.
но как этого добиться, может кто подскажет

Всего записей: 105 | Зарегистр. 13-11-2007 | Отправлено: 18:02 12-03-2009

Frodo_Torbins Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору alecksey1984 Придется работать с чужими окнами через WinAPI: http://delphikingdom.com/asp/answer.asp?IDAnswer=32499
	Всего записей: 2319 \| Зарегистр. 24-05-2007 \| Отправлено: 19:06 12-03-2009

sergiuz1303 Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Всем привет! Нужна помощь при подключение эл. весов DIGI DS-788 к своей программе, кто сталкивался с таким отзовитесь!
	Всего записей: 46 \| Зарегистр. 11-06-2007 \| Отправлено: 14:07 13-03-2009

extasy

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите пожалуйста компоненты для создания SFTP-клиента. Пробовал IPWorks SSL V8, но его пример SFTP никак не хочет работать (при соединении пишет "Connection refused")

Всего записей: 429 | Зарегистр. 18-05-2006 | Отправлено: 09:25 14-03-2009 | Исправлено: extasy, 10:05 14-03-2009

murkovich

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

DmitryKz

Цитата:

Еще есть такой вопрос: как определить в 2009 Дельфи, юникодный текстовый файл или анси?

Во первых, Тебе надо определиться, какой именно юникод - UTF-8, UCS-2, или еще другой.

Если UTF-8 против конкретного анси, то определить можно с близкой к 100% вероятностью, анализируя символы 128..255, ибо некоторые байты в UTF-8 недопустимы, другие же в свою очередь очень маловероятны в текстовом анси.

Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 18:46 14-03-2009

Arch1S

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

Подскажите пожалуйста компоненты для создания SFTP-клиента

знаю только SecureBlackbox 6 VCL

Всего записей: 93 | Зарегистр. 21-02-2009 | Отправлено: 20:40 14-03-2009

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC