|
Sets the way that a part of the web content is delivered to the user. |
|
string |
String that defines the delivery method |
|
global
procedure SendAttachedFile(record Attach2Vc Attachr,boolean downloadf)
begin
string 255 ext;
if (Attachr.SerNr>0) then begin
ext = GetFileExtension(Attachr.FileName);
SetContentTypeForExtension(ext);
if (downloadf) then begin
WebSetContentDisposition("attachment; filename=" & Attachr.FileName);
end else begin
WebSetContentDisposition("inline; filename=" & Attachr.FileName);
end;
WebOutAttachment(Attachr.SerNr);
end;
return;
end;
««