Search found 309 matches

by Rochinha
Thu Nov 20, 2008 2:19 pm
Forum: FiveWin para Harbour/xHarbour
Topic: network print status
Replies: 6
Views: 1182

Execute el test: Codigo: #include "FiveWin.ch" Function main() aArray := GetPrinters() for i = 1 to len(aArray) cPrinterName := substr( aArray[i], 1, at( ",", aArray[i])-1 ) ? "A impressora " + cPrinterName, IsPrint( alltrim( cPrinterName ) ) next Return nil Function Ge...
by Rochinha
Wed Nov 19, 2008 1:00 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Show Dots
Replies: 6
Views: 1027

Try BRUSH in CheckDots method: METHOD CheckDots() CLASS TControl ... DEFINE CURSOR oSizeNWSE SIZENWSE DEFINE CURSOR oSizeNESW SIZENESW DEFINE CURSOR oSizeNS SIZENS DEFINE CURSOR oSizeWE SIZEWE DEFINE BRUSH oDotBrush FILENAME "dot.bmp" DEFINE WINDOW oDot1 OF oWndParent; STYLE nOr( WS_CHILD,...
by Rochinha
Wed Nov 19, 2008 12:29 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Envio de Faxes en FWH
Replies: 21
Views: 6487

Mike, Mira mi applicacion en http://www.5volution.com/app02.asp La misma usa: HBFax.prg #include "FiveWin.ch" #include "dll.ch" #DEFINE WM_SYSCOMMAND 274 // &H112 #DEFINE SC_TASKLIST 61744 //&HF130 #DEFINE SC_SCREENSAVE 61760 // &HF140 #DEFINE SW_HIDE 0 // &H0 #DE...
by Rochinha
Wed Nov 19, 2008 3:00 am
Forum: FiveWin para Harbour/xHarbour
Topic: Envio de Faxes en FWH
Replies: 21
Views: 6487

Amigo,

Activa lo servicos de Fax de tu XP or Windows 2000/2003 en SERVICES.
by Rochinha
Mon Nov 17, 2008 9:32 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Show Dots
Replies: 6
Views: 1027

Show Us! put an image sample.
by Rochinha
Fri Nov 14, 2008 4:03 am
Forum: FiveWin for Harbour/xHarbour
Topic: video - mail merging WINWORD 2007 via FWH
Replies: 1
Views: 403

Otto,

Very good. large resources in a few lines.
by Rochinha
Thu Nov 13, 2008 1:48 pm
Forum: FiveWin for Harbour/xHarbour
Topic: This is a Bug?
Replies: 4
Views: 850

Friends,

Are all correct.

Sorry for my mistake, my machine this a day late in the calendar.

Please forget that reported a problem.

Thanks to All
by Rochinha
Thu Nov 13, 2008 1:39 am
Forum: FiveWin for Harbour/xHarbour
Topic: This is a Bug?
Replies: 4
Views: 850

This is a Bug?

Image
by Rochinha
Wed Nov 12, 2008 11:44 pm
Forum: FiveWin for Harbour/xHarbour
Topic: WORD 2007 docx: search/replace is working
Replies: 7
Views: 4734

Otto, Your .DOCX have a DOCTYPE instruction like this?: <?xml version="1.0"?> <!DOCTYPE xbel PUBLIC "+//IDN python.org//DTD XML Bookmark Exchange Language 1.0//EN//XML" "http://www.python.org/topics/xml/dtds/xbel-1.0.dtd"> In Language 1.0//EN//XML" you need replace...
by Rochinha
Wed Nov 12, 2008 9:07 pm
Forum: FiveWin for Harbour/xHarbour
Topic: WORD 2007 docx: search/replace is working
Replies: 7
Views: 4734

Otto Enchacement for your code: Change the main function: Function Main( cDOCFile, cVFields, cVData ) aVFields := StringToArray( cVFields, ";" ) aVData := StringToArray( cVData, ";" ) ... MOVEFILE( cDOCFile, "temp.zip" ) ... HB_UNZIPFILE( "temp.zip",,.f.,,&quo...
by Rochinha
Fri Nov 07, 2008 5:02 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Opening word-documents read-only with OLE
Replies: 6
Views: 1076

Friend, Sintaxis: ... oWord:FileOpen( cDOCName [, nConfirmConversions [, nReadOnly ; [, nAddToMru [, cPasswordDoc [, cPasswordDot [, nRevert ; [, cWritePasswordDoc [, cWritePasswordDot]]]]]]]] ) ... Example: ... oWord:FileOpen("C:\MY DOCUMENTS\MYWORD.DOC" , , 2 ) ...
by Rochinha
Sun Nov 02, 2008 7:51 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Testing a valid IP address? ( SOLVED! )
Replies: 43
Views: 8225

Friends, Here is a new version: #include "FiveWin.ch" #include "dll.ch" Function Main(_ping_) Ping( _ping_ ) return nil Function Ping(DestinationAddress) local IcmpHandle,Replicas local RequestData:="Testando ping",; RequestSize:=15,; RequestOptions:="",; Repl...
by Rochinha
Sun Nov 02, 2008 8:01 am
Forum: FiveWin for Harbour/xHarbour
Topic: Testing a valid IP address? ( SOLVED! )
Replies: 43
Views: 8225

Patrick,

Download at http://www.5volution.com/forum/pinga.zip

This version is tested on Vista Ultimate and Windows server 2003.

Use: pinga <ip> example: pinga 192.168.0.100