Open PDF in the Browser Window

[Schlingel]

Hello

 

I want to open some PDF files in the browser. Can someone give me an example-code?

 

Is this possible with XE2 Prof. or do I need chargeable components?

 

Thank you very much

[andersa@ellenshoej.dk]

Use TUniURLFrame and put the url to the pdf in the URL property.

[Schlingel]

Use TUniURLFrame and put the url to the pdf in the URL property.

 

Thank you

[ogaere]

It works in VCL mode but does not work in Web Mode

[Ronak]

var
   fPdf:String;
begin
   fPdf= 'abc.pdf';

   URLFrame.URL := UniServerModule.LocalCacheURL +fPdf;  // Display

 

   //    or

   UniSession.SendFile(UniServerModule.LocalCachePath +fPdf);  // open in browser (depends on browser settings)




end

[Anachronox]

I have one alternative, not using other components, and opening PDF in new window automatically.

Here is an example of my procedure (save data to stream, save stream to disk, publish PDF using localcache and open new browser window using javascript) :

procedure OpenDocumentByURL(Data: TBytes; FileName: string);
var Stream: TMemoryStream;
begin
  if Length(Data) > 0 then
  begin
    Stream := TMemoryStream.Create;
    try
      FileName := UniServerModule.LocalCacheURL + FileName;
      Stream.WriteBuffer(Data[0], Length(Data));
      Stream.SaveToFile(FileName);
    finally
      Stream.Free;
    end;
    UniSession.AddJS('window.open(' + QuotedStr(FileName) + ')');
  end;
end;

But the principle is just opening required document from published folder by browser itself using javascript.

You just have to allow opening new windows in browser for the first time.

[leon220]

Where can I adjust the UniServerModule.LocalCachePath value, if i run your code it cannot find the pdf file

[adragan]

When you create the pdf you put it in    UniServerModule.LocalCachePath + pdf_name.pdf

 

When you send it or put it in a window you adress it with : UniServerModule.LocalCacheURL +  pdf_name.pdf

 

You don't adjust paths. Application deals with it automatically.

All you can do is send the whole cache file ( for all users ) in the UniserverModule.CacheFolder:= .... somewhere 

To change it at application start use the UniserverModule.OnBeforeInit event.

After application start you're done !

[Jean-Marc Kiener]

I have one alternative, not using other components, and opening PDF in new window automatically.

 

Here is an example of my procedure (save data to stream, save stream to disk, publish PDF using localcache and open new browser window using javascript) :

procedure OpenDocumentByURL(Data: TBytes; FileName: string);
var Stream: TMemoryStream;
begin
  if Length(Data) > 0 then
  begin
    Stream := TMemoryStream.Create;
    try
      FileName := UniServerModule.LocalCacheURL + FileName;
      Stream.WriteBuffer(Data[0], Length(Data));
      Stream.SaveToFile(FileName);
    finally
      Stream.Free;
    end;
    UniSession.AddJS('window.open(' + QuotedStr(FileName) + ')');
  end;
end;

But the principle is just opening required document from published folder by browser itself using javascript.

 

You just have to allow opening new windows in browser for the first time.

 

Is there a possibelity to avoid the "You just have to allow opening new windows in browser for the first time."?

 

"

[Farshad Mohajeri]

Is there a possibelity to avoid the "You just have to allow opening new windows in browser for the first time."?

 

Probably no. If there was a way to bypass this, spammers could fill your desktop with all sort of ads and spams.