| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как запустить стандартный просмоторщик изображений и факсов Windo [D7]

Golikov ©   (2007-06-10 23:12:00) 

как запустить стандартный просмоторщик изображений и факсов Windows XP из Delphi и загрузить в него картинку ?

---

Golikov   (2007-06-18 18:51:00) [1]

а если в этом поле хранится прайс-лист, то необходимо эти данные передать в Excel.
как быть ?

---

DVM   (2007-06-11 00:49:00) [2]

> Golikov ©   (11.06.07 00:44) [8]

Чем [5] не устраивает? Загружает JPEG данные из указанного поля указанного датасета в TJPEGImage. Делай дальше с ним что хочешь. Хочешь сохраняй в файл, хочешь рисуй на окне и т.д.

---

Golikov   (2007-06-11 00:44:00) [3]

так как правильно загрузить картинку из Базы Access ?

---

DVM   (2007-06-11 00:41:00) [4]

А вообще тут TJPEGImage даже не нужен.

---

DVM   (2007-06-11 00:39:00) [5]

> winexec('rundll32.exe D:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen
> jpgg', sw_show);

И почему у тебя переменная jpgg находится внутри строки? Там вообще путь к файлу должен быть.

---

DVM   (2007-06-11 00:37:00) [6]


procedure LoadJpeg(DataSet: TDataSet; Field: String);
var
 MS: TStream;
 J1: TJPEGImage;
begin
 J1 := TJPEGImage.Create;
 MS := DataSet.CreateBlobStream(DataSet.FieldByName(Field), bmRead);
 try
   MS.Seek(soFromBeginning, 0);
   with J1 do
     begin
       PixelFormat := jf24Bit;
       Scale := jsFullSize;
       Grayscale := False;
       Performance := jpBestQuality;
       ProgressiveDisplay := True;
       ProgressiveEncoding := True;
       LoadFromStream(MS);
       // Дальше тут надо сохранить JPEG-данные во временный файл
       // Потом открыть с пом. [1] потом подождать закрытия окна просмотрщика
       // Потом удалить временный файл.

     end;
 finally
   J1.Free;
   MS.Free;
 end;
end;


---

Golikov   (2007-06-11 00:33:00) [7]

напиши не фигню

---

DVM   (2007-06-11 00:29:00) [8]

> где ошибка ?

Везде буквально. Фигню написал полную. Все в кучу смешал.

---

Golikov   (2007-06-11 00:21:00) [9]

пишу так
var
jpgg: TJPegImage;

begin
 Jpgg:=TJPegImage.Create;
 Jpgg.Assign(ADOTable1.FieldByName('Anketa') as TBlobField);
winexec('rundll32.exe D:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen jpgg', sw_show);
end;


но ничего не происходит .
где ошибка ?

---

DVM   (2007-06-10 23:38:00) [10]

winexec('rundll32.exe I:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen c:\MYPHOTO.JPG', sw_show);

---

Наверх