VPF::проблемы с AlphaSkins - Форум программистов

namra

Дата 17.4.2009, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 26.4.2007

Репутация: нет
Всего: нет

Проблема в том что дома работает экзешник нормально с компонентами Alphaskins, а в универе exe на одном компе запускается на другом нет выдает ошибку run at time error и цифры там какие-то. Думаю проблема в компонетах в универе эти компоненты не установлены, хотя откомпилированный exe должен и без них запускаться. Может кто сталкивался, подсажите в чем дело?

Это сообщение отредактировал(а) namra - 17.4.2009, 10:10

Данкинг

Дата 17.4.2009, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(namra @ 17.4.2009, 11:08

)

run at time error

Я думаю, всё-таки "run-time error". smile

А что прога делает? Может, ей чего-то ещё не хватает.

Это сообщение отредактировал(а) Данкинг - 17.4.2009, 10:54

--------------------

There's nothing left but silent epitaphs.

namra

Дата 17.4.2009, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 26.4.2007

Репутация: нет
Всего: нет

да не чего такого электронный учебник. На главной форме процедуры FormCreate нет, есть FormShow, вторая форма (Logo) используется как заставка помещена в Project - Options - Available Forms:

Код


procedure TForm1.FormShow(Sender: TObject);
begin
    Form1.sSkinManager1.Active:=True;
    StatiaBtn.Enabled:=False;
    DelBtn.Enabled:=False;
    AddTestBtn.Enabled:=False;
    WriteTestBtn.Enabled:=False;
    OptionsBtn.Enabled:=False;
    menuItemAddStatia.Enabled:=False;
    menuItemDeleteStatia.Enabled:=False;
    menuItemAddTest.Enabled:=False;
    menuItemWriteTest.Enabled:=False;
    menuItemTools.Enabled:=False;
    //////////
    ADOQuery1.ConnectionString:='FILE NAME='+GetCurrentDir+'\Path.udl'; //путь к БД
    ADOQuery1.SQL.Text:='select * from Optionss';
    ADOQuery1.Active:=True;
    num:=Form1.ADOQuery1.FieldValues['id'];
    Form7.sEdit3.Text:=ADOQuery1.FieldValues['tree'];
    Form7.sDirectoryEdit1.Text:=ADOQuery1.FieldValues['Inf'];
    Form7.sEdit1.Text:=ADOQuery1.FieldValues['comb'];
    Form7.sDirectoryEdit2.Text:=ADOQuery1.FieldValues['lab'];
    Form7.sDirectoryEdit3.Text:=ADOQuery1.FieldValues['video'];

   //sTreeView1.LoadFromFile(GetCurrentDir+'\Tree.bin');
//  end;
    if FileExists(form7.sDirectoryEdit1.Text+'\index.html')=True then
    begin
      WebBrowser1.Navigate(form7.sDirectoryEdit1.Text+'\index.html');
    end;
    if FileExists(Form7.sEdit3.Text)=True then
    begin
      sTreeView1.LoadFromFile(Form7.sEdit3.Text);
    end;
    if FileExists(form7.sEdit1.Text)=true then
    begin
      sComboBox1.Items.LoadFromFile(form7.sEdit1.Text);
    end;
    if FileExists(form7.sDirectoryEdit2.Text+'\Кнопка.html')=True then
    begin
      WebBrowser2.Navigate(form7.sDirectoryEdit2.Text+'\Кнопка.html');
    end;
end;

В Project.dpr написал следующее:

Код


begin
  Application.Initialize;
  Logo := TLogo.Create(Application);
  Logo.Show;
  Logo.Update;
  while Logo.Timer2.Enabled do
    Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Logo.Hide;
  Logo.Free;
  Application.Run;
end.

Это сообщение отредактировал(а) namra - 17.4.2009, 11:40

Нур

Дата 28.2.2011, 08:31 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.12.2010

Репутация: нет
Всего: нет

ДА прибудет с тобой Сила

kami

Дата 28.2.2011, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

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

Цитата(namra @ 17.4.2009, 10:08

)

Может кто сталкивался, подсажите в чем дело?

FastMM и(или) madExcept в руки. Второе предпочтительнее для отлова runtime ошибок.

А ведь и правда, некроманты smile

на дату ТС даже не посмотрел smile

Это сообщение отредактировал(а) kami - 28.2.2011, 18:34

northener

Дата 28.2.2011, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Некроманты, блин. smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »