Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 38
Благодарности: 0

Профиль | Отправить PM | Цитировать


помогите, очень надо....
Есть текст:

Код: Выделить весь код
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TJPEGImage    *ptJpg=new TJPEGImage;
  Graphics::TBitmap  *ptBmp=new Graphics::TBitmap;
  ptJpg->LoadFromFile("a.jpg");  //Загружаем файл .jpg
  Canvas->Draw(0,0,ptJpg);  //Нприсуем исходное изображение
  ptBmp->Width=3*ptJpg->Width/4;  //Уменьшаем на 3/4
  ptBmp->Height=3*ptJpg->Height/4;
  ptBmp->Canvas->StretchDraw(Rect(0,0,ptBmp->Width,ptBmp->Height),ptJpg);  //Рисуем отмасштабированное изображение на канву
  Canvas->Draw(ptJpg->Width,0,ptBmp);  //Можем нарисовать измененное изображение  //(сдвинуто на ptJpg->Width вправо)
  ptJpg->Assign(ptBmp);
  ptJpg->CompressionQuality = 75; //Степень сжатия (качество) 1..100
  ptJpg->Compress();
  ptJpg->SaveToFile("a1.jpg");  //Можно изменить степень сжатия
  delete ptJpg;
  delete ptBmp;
}
Все работает правильно, но один касяк... ptJpg->LoadFromFile("a.jpg"); - эта функция воспринимает только имя файла, а если прописать путь к файлу, она работает некорректно.
Помогите!!!!!!!!!!!!!!

Последний раз редактировалось Drongo, 20-08-2010 в 13:20. Причина: Тег код - #


Отправлено: 12:53, 20-08-2010 | #13