FiveTech Software tech support forums

... //oStr = CREATEOBJECT( "ADODB.Stream" ) //oStr:Open() //oStr:Type = 1 //oStr:Write( oHtp:ResponseBody ) //oStr:SaveToFile( cFile, 2 ) //oStr:Close() lOk = .T. //CATCH ex // ? ex:message //END RETURN lOk

I pasted this code into my program and run. The ? hb_NumToHex( HPDF_SaveToFile( hPdf, "c:\temp\Hello.pdf" ) ) returns 0, there is a Temp directory on my c: drive but no file is created. I am using IIS version of Mod_Harbour.

Thanks,

Byron,

Please change this line this way:

? HPDF_SaveToFile ( hPdf, "Hello.pdf" )

and lets see what return code you get

Is there any samples of printing to pdf using harupdf lib. I tried the TPdf print class from my newest version of Harbour but this does not work. I then created the code below by using the functions used in the class: function main() local hPdf := HPDF_New() local hPage := HPDF_AddPage( hPdf ) HPDF_...

... ) oXMLHTTP:Send() If oXMLHTTP:Status() == 200 oADODBStream:Type := 1 oADODBStream:Open() oADODBStream:Write( oXMLHTTP:ResponseBody ) oADODBStream:SaveToFile( cDest, 2 ) // MsgAlert("Download feito, ok", "Aviso") lOk:=.t. Else // MsgAlert("Erro com download", "Aviso") ...

... ) oXMLHTTP:Send() If oXMLHTTP:Status() == 200 oADODBStream:Type := 1 oADODBStream:Open() oADODBStream:Write( oXMLHTTP:ResponseBody ) oADODBStream:SaveToFile( cDest, 2 ) // MsgAlert("Download feito, ok", "Aviso") lOk:=.t. Else // MsgAlert("Erro com download", "Aviso") ...

Con Harbour, tienes que enlazar las librerias hbhpdf.lib y libhpdf.lib #include "FiveWin.ch" #include "harupdf.ch" Function Main() Local oPdf,Page,oImage,oFont,Font1,Font2,Font3 oPdf:=HPDF_New() HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL ) **HPDF_SetPassword( oPdf, 'jaime', 'al...

... LastErrorCode LoadFromFile MergeDocument NewDocument NewPage NormalizePage PageCount PageHeight PageRotation PageWidth RemoveDocument RotatePage SaveToFile SecurityInfo SelectDocument SelectedDocument SelectFont SelectImage SelectPage SetBaseURL SetInformation SetMeasurementUnits SetOrigin SetPageBox ...

... ), NIL ), ; cECode := "// " + cTopic + CRLF + ; "// " + cTLink + ; CRLF + CRLF + cTCode, ; oTCode:SetText( cECode ), ; oTCode:SaveToFile( c_path1 + "Sample.prg" ), ; WinExec( TRIM(cEDITOR) + " " + c_path1 + "Sample.prg" ), ; oTCode:SetText( cTCode ...

on testrtf.prg there is another big error 1. Open 2 window child and on each write the word "HOME" 2. then select the word home on a window child and press the size of the font 3. you 'll see also the get ( size of font) of the other window child is moved and the word not change the size 4...

Silvio Method SaveToFile is correct Save file as Text plain. You are change extension of cFileName to save, or static function Save()   local cFile := cGetFile( "Rich Text Format (*.rtf) |*.rtf|" + ;        ...

... it save as text if I open the file with windows notepad I can see the file as text and I saw it lose the format rtf why ? perhaps the METHOD SaveToFile is wrong ? METHOD SaveToFile( cFileName ) CLASS TRichEdit   DEFAULT cFileName := ::cFileName   if Empty( cFileName )      ...

Silvio

SaveToFile method, use MemoWrite, and not use Methods SaveAsRTF and not use SaveToRTF

I misunderstood what you need?

Silvio, try with 1 Question METHOD SaveToFile( cFileName ) CLASS TRichEdit  Cristobal before pls see the methods METHOD InsertRTF( cRTF ) CLASS TRichEdit and METHOD CanPaste( nFormat ) before there was a new data nFormat ? I thinked ...

... are missing are or not in aEvents, thanks Antonio these are the event names in avents Createasxml Createasregistry Createasbinary Loadfromfile Savetofile Getsection Exchange string Exchange int Loading valid Empty section From handleevent these are the events received 19 50 15 Createasxml Loadfromfile ...