Текущий архив: 2007.07.15;
Скачать: CL | DM;

Вниз

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

← →
Golikov ©   (2007-06-10 23:12) [0]

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

---

← →
DVM ©   (2007-06-10 23:38) [1]

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

---

← →
Golikov ©   (2007-06-11 00:21) [2]

пишу так
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-11 00:29) [3]

> где ошибка ?

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

---

← →
Golikov ©   (2007-06-11 00:33) [4]

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

---

← →
DVM ©   (2007-06-11 00:37) [5]


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;


---

← →
DVM ©   (2007-06-11 00:39) [6]

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

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

---

← →
DVM ©   (2007-06-11 00:41) [7]

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

---

← →
Golikov ©   (2007-06-11 00:44) [8]

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

---

← →
DVM ©   (2007-06-11 00:49) [9]

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

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

---

← →
Golikov ©   (2007-06-18 18:51) [10]

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

---

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

Текущий архив: 2007.07.15;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.022 c