VPF::ошибка в программе. - Форум программистов

nur87

Дата 19.10.2006, 22:00 (ссылка)

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

Загрузка ...

Новичок

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

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

вобщем вод код.

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Animate"
#pragma link "GIFCtrl"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
CreateDir("temp");// создаём временную папку
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Zagruz_skiClick(TObject *Sender)
{
OpenDialog1->Title = "Открыть ski файл";
  if (OpenDialog1->Execute())
  {
    Ski_fail->Lines->LoadFromFile(OpenDialog1->FileName);
  } //здесь мы загрузили ски файл
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Rab_stolClick(TObject *Sender)
{
OpenPictureDialog1->Title = "Открыть картинку";
  if (OpenPictureDialog1->Execute())
  {
  Rab_stol2->Picture->LoadFromFile(OpenPictureDialog1->FileName);// загрузка картинки
 Rab_stol2->Left=10;
 Rab_stol2->Top=10;
  }


}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Rab_stol1->Picture->LoadFromFile("sym.gif");// загрузка верхней полосы
  Rab_stol1->Left=10;
  Rab_stol1->Top=300;
}
//---------------------------------------------------------------------------

на форме два имаге. и два баттона. так вот если сначала нажать на Rab_stol загрузить картинку, то после нажатия batton1 вылазиет ошибка
user posted image

а если нажать на баттон1 и потом Rab_stol? то всё грузиться нормально, но стоит нажать на баттон1 то вновь та же ошибка.
помогите пожалуйста

Это сообщение отредактировал(а) nur87 - 19.10.2006, 22:33

nur87

Дата 20.10.2006, 10:11 (ссылка)

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

Загрузка ...

Новичок

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

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

так с проблемой я разобрался.
появилась вторая. после загрузке картинки через диалог (допустим из С) если нажать кнопку (которая грузит гиф из папки с exeшником) то она грузит картинку не из папки с exe а из С. т.е. меняется путь к нему.

Bima

Дата 20.10.2006, 10:32 (ссылка)

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

Загрузка ...

Опытный

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

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

так укажи явно путь из папки с exe, а не просто Rab_stol1->Picture->LoadFromFile("sym.gif");// загрузка верхней полосы

а вот так:
Rab_stol1->Picture->LoadFromFile(ExtractFilePath(ParamStr(0))+"sym.gif");// загрузка верхней полосы

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

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

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