И ещё - возможно ли сделать так, чтобы прога кушала не 100% ресурсов компа, а 50%? А то у меня в особо тяжёлых случаях вообще возникает переполнение буфера...
П.С. гружу тот же файл 11 Мб - всеми правдами и неправдами пока удалось добиться самой высокой скорости 1 минута 30 секунд ;о) Это если в Мемо вынимать, а если в другие компоненты - то скорость может сильно измениться... Например если в грид - процесс может вообще через минуту зависнуть...

Отредактировано guyver (2007-05-27 00:19:14)

Привет всем! Опять вопросы:

1. Есть у меня диалог OpenDialog1 - им я указываю, какой файл я буду
открывать (первая кнопка)
2. Есть у меня диалог OpenDialog2 - им я указываю, какой программой я
открою указанный файл (вторая кнопка)
3. И наконец третья кнопка, при нажатии на неё:

if (ShellExecute(0, nil,
PChar(ExtractFileName(OpenDialog1.FileName)),PChar(ExtractFileName(OpenDialog2.FileName)),
nil, SW_NORMAL))<=32
then MessageBox(0,'Указанная вами программа не обнаружена!','Ошибка
запуска программы!', MB_OK);

Так вот - если программа и файл лежат в одной директории, то всё прекрасно
работает, т.е. нажимаю кнопку 1 и выбираю например текстовой файл, нажимаю
кнопку 2 и выбираю например ВОРД, а при нажатии на кнопку 3 файл
открывается в ВОРДЕ. НО!!!! Если сам файл и открывающая его программа
лежат в разных директориях - ничего не работает!!! Помогите кто-нибудь,
как это исправить?

Если я буду указывать путь полностью, не обрезая:
PChar(OpenDialog1.FileName),PChar(OpenDialog2.FileName), nil, SW_NORMAL))<=32
то файл будет открываться не той программой, которая указана, а той, что винда по-умолчанию пользуется..

В общем как я только не экспериментировал - либо открывается прога, но файл нет, либо наоборот...

А таким макаром: if (ShellExecute(0, nil, PChar(OpenDialog2.FileName), PChar(ExtractFileName(OpenDialog1.FileName)), nil, SW_NORMAL))<=32
вроде работает, НО только если сначала открыть файл в той же папке, что и программа, с помощью которой он будет открыт, потом можно открывать любые файлы в любом месте... Блин, плохо быть глупым!!!

Спасибо, разобрался ;о)

Ох-ох-ох. Сама себя не похвалишь - никто не похвалит.) Тряси Джина - он всё умеет.)

Я добавила в обработчик события панели TForm1.Panel2Resize строку

Image2.Picture.Graphic.Height:=Image2.Height;

При запуске приложения компилятор выводит ошибку

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045B45A in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

При нажатии кнопки OK программа исправно запускается, только её ещё вручную нужно сделать активной, щёлкнув на появившемся значке панели задач. При изменении размеров окна размеры пробной диаграммы изменяются абсолютно корректно. Почти получилось. Но что за ошибку выводит компилятор и как её устранить?

Спасибо. TPaintBox - именно то, что мне нужно. Вывела на них основные элементы диаграмм, осталось лишь наложить толстый слой make-up-а. К сожалению обнаружилось, что в Delphi у TPanel нет автопрокрутки.    Жалко, придётся писать вручную.

А можно ещё вопрос? Можно ли сделать так, чтобы главное меню (TMainMenu) простиралось не от края до края через всю форму, а занимало ровно столько места, сколько составляющие его пункты? Причина в том, что чем длиннее панели диаграмм, тем больше информации они могут отобразить. В Бейсике.NET я так делала. Если, конечно, в Делфи это не слишком сложно, не тот у меня уровень.

Отредактировано BlueHairLady (2008-03-23 06:08:39)

В VB.NET (VS 2005), там можно настроить компонент главного меню таким образом. Результат можно посмотреть на примере той же самой Поганки (http://user.rol.ru/~bhlady/programs/vp.htm).

Разборки в баре - это не для меня.

Увы, фрейм нельзя настрить так, чтобы он выглядел как панель. Можно, конечно, прицепить к форме панель, к панели фрейм, а на фрейм TPaintBox, но легче самой написать прокрутку, чем разбираться в подобном винегрете. Что, кстати, я уже сделала. Диаграммы полностью работают, спасибо за помощь. Правда изрядно косят, нужно делать попиксельную настройку.

Первая программа почти готова, осталось лишь пошлифовать. Не подскажите, трудно ли исправить один нюанс? В Pakostnickе Guyverа (http://guyverperevod.narod.ru/program.html) я обнаружила крайне полезную и нужную в подобных программах штучку: при щелчке на одной-единственной кнопке программа запускает ROM через внешний эмулятор. Естественно, я сразу захотела сделать подобное. Я ничего в таких вещах не понимаю, но с моему счастью, чуть выше по форуму есть соответствующая команда, которую я слепо скопировала в свою программу.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ShellExecute(0, nil, PChar(strEmul), PChar(strFile), nil, SW_NORMAL)<=32 then ShowMessage('Ошибка при запуске программы);
  //где strEmul и strFile - глобальные строковые переменные, содержащие полное имя эмулятора и файла
end;

Как говорится, пока умные обсуждают, глупые копируют. Нагло и бездумно. Всё вроде бы работает, но есть загвоздка.
Во-первых, если запущенное внешнее приложение свёрнуто, то при щелчке на соответствующей кнопке оно так свёрнутым и остаётся.
Во-вторых, если внешняя программа разрешает запускать несколько своих копий, то при каждом щелчке на кнопку создаётся новое окно данного внешнего приложения (к примеру, блокнота).
Скажите, это трудно исправить? Учитывая мои крайне поверхностные знания.

Решила заскочить, показать, что получилось: http://user.rol.ru/~bhlady/programs/vs.htm . Думаю, что готовая программа - это логичное завершение череды вопросов. Плюсик добавить не получается, но за содействие спасибо.

Туда бы ещё декомпилятор для сравнения кода

Кстати, а насчёт сравнилки кода - а это идея! Например, берёшь деджапанизацию какой-нибудь игрухи, и смотришь, где что переводчег накодил, где что изменил...

Ну почему же для любой? Можно и плагины катать
Не, ну представь себе такую прелесть: нажимаешь кнопочку, и тебе сравнивается код, причём "умным" сравнением (как в тотале строки, только ещё с учётом всевозможных nop и т.п.)