...
http://www.digital-metaphors.com/download/documentation/
Tuotekuvat raportille
tuettuina formatteina ovat ainakin .bmp,.gif, jpg ja png. URL:n takana eivät toistaiseksi ole tuettu. Ao scriptillä saata ladattua tuotteen ensimmäisen kuvan (jos se löytyy) imageen
| Code Block | ||
|---|---|---|
| ||
procedure Image1OnPrint;
var
s:string;
begin
s := avoinkysely('select top 1 tiedosto from tuotekuv where tuotenro = ''' + DbPipeline1['NUMERO']+''' order by jarjestys' ,'');
s := uppercase(s);
if (pos('.JPEG',s)>0) or (pos('.JPG',s)>0) or (pos('.BMP',s)>0) or (pos('.PNG',s)>0)or (pos('.GIF',s)>0) then
begin
if (s<>'') and FileExists(s) then
begin
image1.visible := true;
Image1.Picture.loadfromfile(s);
end
else
image1.visible := false;
end
else
image1.visible := false;
end; |