» Вопросы по Delphi (все версии) - часть 3

GreatOne

Цитата:

А еще бывают способы кроме (try..except), например директивами компилятору можно такое сделать?

А почему бы и нет Например на запись/чтения файла насколько помню дирректива I. Остальные можно в справке узнать

cs137
Спасиб

В Дельфи 2007, при создании нового проекта (File->New->VCL Forms Application) или открытии вылазит ошибка "Access violation at address 00000000. Read of address 00000000.". Версия Дельфи 11.0.2709.7128 (первый апдейт).
Что делать???

CrazyVirus, а чего из студий у тебя в системе еще стоит? Подозрения, что просто криво встала. Я такое уже видел. Попробуй переустановить. Только после завершения деинсталляции, почисти реестр и все в папке Application Data то что относиться к D2007. Особенно папку типа C:\Documents and Settings\All Users\Application Data\{2EB4C530-C94F-4893-ABDC-C1E05A89956E} (если для всех пользователей ставил). Там лежит сетуп с настройками. Удачи

Здравствуйте.
Delphi 7. Функции запуска внешних приложений (WinExec, CreateProcess, ShellExecute). Ни одна не воспринимает переменные окружения. Это нормально?
Если да, есть ли способы обойти, не прибегая к BAT-файлам, cmd /c и пр.?

ASE_DAG
А что ты именно хочешь от переменных окружения и от функций запуска?

cs137
Запустить приложение по адресу, содержащему переменную окружения.
Например, так:
ShellExecute (0, 'open', '"%PROGRAMFILES%\Outlook Express\msimn.exe"',nil,nil,1);

ASE_DAG
Так перед ShellExecute раскрывай строку при помощи ExpandEnvironmentStrings. Тогда получишь вместо %PROGRAMFILES% нормальный путь, ну а дальше ShellExecute!

cs137
Спасибо. Все работает.

Помогите разобраться.
Значит так =) программа с указанного url забирает исходный код страницы и передает ее в memo.
В memo находиться
================================================== ====
текст <tag>2.7</tag>
<tag>3.1</tag> тескт
текст <tag>4.5</tag>
очень много повтроряющихся стрк..
================================================== ====

Вот вопрос как получить значения между <tag>значение</tag>?

s := Copy(url,pos('<tag>',url)+5,pos('</tag>',url)-pos('<tag>',url)-5);

программа вываливается с ошибкой ..

kalkin
с какой?

ошибку нашел у себя =)
работает тока вот как его циклично поставит ну чтоб он все <tag></tag> в мемо перебрал и выкинул их значения ведь их
с урла может придти 40 -50 а то и 200 или еще больше

1. найти pos(<tag>), pos (</tag>)
2. сделать copy текста от первой позиции до второй.
3. удалить все от начала до pos (</tag>) вместе с </tag>
и так повторять пока есть <tag>

PosEx юзай

Добавлено:
Function Pos(Substr: String; S: String): Integer;
Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;

Вопрос по sql 2000:
Помогите, пожалуйста!
Как можно из колонки получить строку?
Напримир есть табличка:
id
A
B
C
D
E
F
G
H
..
AG
GE
...

Мне из этого нужно получить, строку: 'ABCDEFGH..AGGE...'.
Знаю, что в 2005 появилась функция pivot, а в 2000?

kalkin
Я бы посоветовал посмотреть в сторону регулярных выражений - все таки они специально заточены под парсинг текстов, готовые библиотеки есть и платные и бесплатные.

ac86
А при чем тут делфи??? Есть же ветка http://forum.ru-board.com/topic.cgi?forum=33&topic=1805#1


Pivot тебе вернет не строку, а запись с кучей полей. Можно сделать так:
declare @s varchar
select @s=@s + id from table
select @s

нашел довольно интересный компонент TRegExpr вот пробую спасибо за советы

Был бы рад если подсказали бы
Ситуация:
Есть процедура Oracle - procedure GetData(abc in out refc); где refc - REF CURSOR

Вопрос как передать одно из полей курсора (тк IN ) для ее выполнения. Компоненты доступа ODAC или ADO все в Delphi

Подскажите пожалуйста пример какой-нить для приложения типа апдейтера (как у антивира, например)..
что-нибудь где можно указать список файлов для обновления и поддерживалась система зависимостей, работать должно либо просто с фтп, либо (желательно) с пхп-скриптами

думаю никакие доп. компоненты тут не требуются, просто хочу взглянуть готовый пример, чтоб не изобретать велосипед :)

xy
Можно посмотреть компонент WebUpdate от TMS. Он есть в исходниках delphi. Плюсом можно считать возможность создавать и обновлять приложение патчами, исходники. Минусом довольно неудобно настраивать конфиг. Есть вроде штатная утилита для этого дела, но когда я с ним возился в итоге написал нужный конфиг в ручную.

Есть еще AutoUpdatePlus. Но это отдельная тулза. Из плюсов, очень удобно настраивать конфиги, управлять сервером обновлений, на клиенте при установке можно установить менеджер прав и и легко производить обновление для непревилигированных пользователей. Ну минус один.. раз отдельная тулза то нужно распространять вместе с приложением клиент обновления и для того чтоб поставить менеджер прав по большому счету нужно делать инсталяторы для клиента.

Это из того что я пробовал.


Добавлено:
з.ы. обе системы могут работать и по http и по ftp и просто по сети

RostY
SpoinT
Что-то вы мудрите. ЕСть такая штука: AnsiReplaceStr, а у Memo - свойство Text. 2 вызова - и все белое и пушистое

SergeBS
А ты почитай исходный пост от kalkin - ему нужны все текстовки межу <tag> и </tag>, каким боком тут замена подстроки поможет?

Dennica
понял, посмотрю :)

а есть какие-нибудь примеры шедулеров :-?
ну чтоб садилось в сервисы, и/или (лучше, т.к. под вин98 иногда работает) в трей и шедулилось тихонько :-?

RomanTim
Нда. Поспешил. Тут замена не поможет

Sorry, если не в тему или боян.
Нашёл в Delphi2006 пасхальное яйцо. В окне Help\About при нажатой кнопке Alt надо набрать слово TEAM. Появится надпись "Borland Rules!" Чуть ниже кнопка "OK, I understand." В нижнем левом углу кнопка "Team", в правом слово "GUNGLA". Если кликнуть на "GUNGLA", то в центре появится картинка "обезьяна-серфер". А если кликнуть на "Team", то вашему вниманию будет представлена игра, типа арканоид - сверху падают фамилии разработчиков, надо управлять компьютером внизу (стрелками) и пробелом стрелять по этим фамилиям, и набирать очки.

skinash
неужто сам нашел :):):)
"сижу, team по альтом подбираю" :)

skinash
Сколько набрал? А по результатам нет розыгрыша победителей в интернете с призами типа пасхальных яиц? Первый раз я набрал тысячу, но думаю можно и больше.

xy
Ага, остальные слова не подошли

delover
170, Я не фанат арканоида, уж лучше пинбол