Проблема с MapView.Bitmap() под Windows 7

Сообщений: 1147 Регистрация: 23.03.2009

24.08.2010 10:45:16

Здравствуйте все! Возникла следующая проблема - код работает под WinXP, а под семёркой попадаю в иксепшн;

Код

  bmp := TBitmap.Create();
  try
    FBlan.MapView1.Bitmap(bmp);
  except
    on E : Exception do begin
      Screen.Cursor := crDefault;
      Application.MessageBox(PChar(E.Message), 'Ошибка создания BMP', MB_ICONWARNING);  // вижу это самое окошко с сообщением!
      bmp.Free();
      Exit;
    end;
  end;
  //-------------------------------------------------------------------------
  bmp.SaveToFile(SaveDialog1.FileName);
  bmp.Free();

В окошке сообщение - Параметр задан неверно.
Инструментарий - Delphi 7 + GTK 9 Free.
Что можете посоветовать?

Non sunt entia multiplicanda praeter necessitatem. William of Occam

E-mail

V Bolotoff

Сообщений: 100 Регистрация: 10.11.2008

24.08.2010 23:06:54

Здравствуйте!
У меня работает следующий код (Win2000, WinXp, Win7, Gtk10+Free, карта векторная map или/и sit):

mapv.PrintScale := mapv.ViewScale;
Screen.Cursor := crHourglass;
b := TBitmap.Create;
try
b.PixelFormat := pf24bit;
b.FreeImage;
b.HandleType := bmDIB;
mapv.Bitmap(b);
b.SaveToFile(sf);
Result := true;
finally
b.Free;
Screen.Cursor := crDefault;
// mapv.Refresh;
end;

Но, вообще говоря, функция TMapView.Bitmap() довольно сложная и вызывает ряд других функций и событий, выполнение которых зависит от состава (сложности) текущей карты. Поэтому хорошо бы прогнать в отладчике по шагам и выяснить где конкретно вызывается исключение.

Такое сообшение об ошибке (как у Вас) бывает, когда в TBitMap задают слишком большие размеры ширины (высоты).

С Уважением, Болотов В.И.

E-mail

Газонокосильщик Сообщений: 1147 Регистрация: 23.03.2009	#3 25.08.2010 14:58:02 Спасибо огромное! Помогло! --- ЗЫ - под семёркой GTK9 работает, но со скрипом Какую среду разработки можете посоветовать на, увы, уже ближайшее будущее? Non sunt entia multiplicanda praeter necessitatem. William of Occam
E-mail

Логин:
Пароль:
	Запомнить меня на этом компьютере

Забыли свой пароль?
Регистрация