Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как открывать разные jpeg-файлы в TJPEGImage?

71K
14 мая 2012 года
m-d-k
26 / / 01.05.2012
Пытался открывать разные jpeg-файлы, используя один TJPEGImage (убрал delete map) .
С map2 это получилось, а с map3 (закомментированные строки внизу) нет!
выдает ошибку: [BCC32 Error] Unit1.cpp(30): E2238 Multiple declaration for 'map'
Как это сделать правильно?

Graphics::TBitmap * map1 = new Graphics::TBitmap;
Graphics::TBitmap * map2 = new Graphics::TBitmap;
Graphics::TBitmap * map3 = new Graphics::TBitmap;
TJPEGImage *map = new TJPEGImage;
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{ n=StrToInt(ComboBox1->Text); }
void __fastcall TForm1::Button4Click(TObject *Sender)
{if(OpenPictureDialog1->Execute())
map->LoadFromFile(OpenPictureDialog1->FileName);
if(OpenPictureDialog1->FileName!=""){map1->Assign(map);
Image1->Canvas->Draw(0,0,map1); Image1->Canvas->MoveTo(0,0);
s->LoadFromFile(OpenPictureDialog1->FileName+"w");m=1; }
//delete map;
map->LoadFromFile(ExtractFilePath(Application->ExeName)+"Ukraine.jpg");
map2->Assign(map);
Image2->Canvas->Draw(0,0,map2);Image2->Canvas->Pen->Color=clRed;
Image2->Canvas->Brush->Color=clRed;Image2->Canvas->Pen->Width=2;}
//map->LoadFromFile(ExtractFilePath(Application->ExeName)+"world.jpg");
//map3->Assign(map);Image3->Canvas->Draw(0,0,map3);Image3->Canvas->Pen->Color=clRed;
//Image3->Canvas->Brush->Color=clRed;Image3->Canvas->Pen->Width=2;}
71K
14 мая 2012 года
m-d-k
26 / / 01.05.2012
Спасибо за помощь! Такой вариант работает корректно!

TJPEGImage *jpg1 = new TJPEGImage;
TJPEGImage *jpg2 = new TJPEGImage;
TJPEGImage *jpg3 = new TJPEGImage;
void __fastcall TForm1::Button4Click(TObject *Sender)
{if(OpenPictureDialog1->Execute())jpg1->LoadFromFile(OpenPictureDialog1->FileName);
if(OpenPictureDialog1->FileName!=""){Image1->Picture->Bitmap->Assign(jpg1);
Image1->Canvas->MoveTo(0,0);s->LoadFromFile(OpenPictureDialog1->FileName+"w");m=1;}
jpg2->LoadFromFile(ExtractFilePath(Application->ExeName)+"Ukraine.jpg");
Image2->Picture->Bitmap->Assign(jpg2);Image2->Canvas->Pen->Color=clRed;
jpg3->LoadFromFile(ExtractFilePath(Application->ExeName)+"world.jpg");
Image3->Picture->Bitmap->Assign(jpg3);
Image2->Canvas->Brush->Color=clRed;Image2->Canvas->Pen->Width=2;}
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог