Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

Jpeg Error #52 - что это означает?   Найти похожие ветки 

 
Denis ©   (2004-05-05 12:32) [0]

Здравствуйте.
Эта ошибка вылетает при попытке выполнения этого кода в указанной строке:
[code]

procedure TfmSUAccess.tbModulAfterScroll(DataSet: TDataSet);
var
Stream:TMemoryStream;
Icon:TJpegImage;
Rect:TRect;
begin
Icon:=TJpegImage.Create;
Rect.Left:=0;
Rect.Top:=0;
Rect.Right:=Icon.Width;
Rect.Bottom:=Icon.Height;

if ScrollFlag=true
then
 if tbMOdul.FieldByName("ICON").IsNull
 then
   begin
     Image1.Canvas.Brush.Color:=fmModul.Color;
     Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
   end
 else
     try
       Stream:=TMemoryStream.Create;
       tbModulIcon.SaveToStream(Stream);
       Stream.Position:=0;
         Icon.LoadFromStream(Stream); [b]<<<-- ошибка тут...[/b]
         Image1.Canvas.StretchDraw(Rect, Icon);
     except
       Stream.Free;
       Icon.Free;
     end;
[/code]

Подскажите, что я неправильно делаю? Что означает эта ошибка?


 
wicked ©   (2004-05-05 12:44) [1]

а тип tbModulIcon?...
сдается мне, что он ругается на то, что в Stream лежит не jpeg, а что-то другое...


 
Denis ©   (2004-05-05 13:24) [2]

Спасибо,я это уже понял :)
Моя ошибка в том, что я положил в Stream  *.ico, а читаю его в TJpegImage.

А тип tbModulIcon - TBlobField...



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.032 c
14-1088510327
VictorT
2004-06-29 15:58
2004.07.18
Что за ошибка? 509 - Bandwidth Limit Exceeded


3-1087411300
Timur
2004-06-16 22:41
2004.07.18
Проблема с insert


14-1088580931
Соловьев
2004-06-30 11:35
2004.07.18
Может и старо:)


14-1087459582
blackman
2004-06-17 12:06
2004.07.18
Что за портал дремучих?


14-1088157996
MetalFan
2004-06-25 14:06
2004.07.18
или форум глючит...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский