Текущий архив: 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.02 c
