Search found 309 matches

by Rochinha
Mon Jul 07, 2008 4:00 am
Forum: FiveWin for Harbour/xHarbour
Topic: ASP + xbScript
Replies: 6
Views: 2298

Rimantas Try this my utilities: How to use: MakeHTM <dbf_file> example: MakeHTM clients MakeHTM.PRG code: PARA cFile,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10 p1 := iif(p1=NIL,"",p1) p2 := iif(p2=NIL,"",p2) p3 := iif(p3=NIL,"",p3) p4 := iif(p4=NIL,"",p4) p5 := iif(p5=NIL...
by Rochinha
Mon Jul 07, 2008 2:26 am
Forum: FiveWin for Harbour/xHarbour
Topic: CODE: Help in controls, now, so easy.
Replies: 3
Views: 1118

CODE: Help in controls, now, so easy.

Friends, Compile the code below, run application, press F2 in a GET, CHECKBOX or COMBOBOX, put the help text for control and confirm. Press F2 again in control and, Huaalaaaaaá! Anota.PRG #include "FiveWin.ch" #include "btnget.ch" #include "anota.ch" #command OPEN <(db)...
by Rochinha
Thu Jul 03, 2008 1:17 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Suggested addition to Errsysw.prg
Replies: 12
Views: 2790

Roger,

Thanks too!

Moises,

I´m using Blat because MAPI fails with Outlook or Outlook 2000 security.

MAPI works fine with Eudora.

See more examples in http://www.fivetechsoft.com/forums/view ... blat+class
by Rochinha
Thu Jul 03, 2008 9:55 am
Forum: FiveWin for Harbour/xHarbour
Topic: ASP + xbScript
Replies: 6
Views: 2298

Rimantas

Fisrt try to use WinASP( http://htcsoft.no-ip.com:82/ )

This WebServer allow run xbase style scripts with .DBFs and .CDX indexes.

You can develop in a little time one web application.
by Rochinha
Wed Jul 02, 2008 4:30 am
Forum: FiveWin for Harbour/xHarbour
Topic: ASP + xbScript
Replies: 6
Views: 2298

Rimantas,

What you need about ASP? explain me more.
by Rochinha
Tue Jul 01, 2008 4:00 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Suggested addition to Errsysw.prg
Replies: 12
Views: 2790

Roger, You can automate send error file, I use Blat to this: ... // Generates a file with an Error Log BEGIN SEQUENCE oOldError = ErrorBlock( { || DoBreak() } ) MemoWrit( "Error.log", cErrorLog ) END SEQUENCE ErrorBlock( oOldError ) /* PANTALLA DE CONTROL DEL ERROR */ DEFINE FONT oFont NAM...
by Rochinha
Fri Jun 27, 2008 3:27 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to Open a DBF file from Internet Web Server via xBScript
Replies: 11
Views: 2685

SteveLai, First: Download the application at: http://www.xharbour.com/xhc/index.asp?page=xhc_download_detail.asp&type=dl&id=62&action=download&show_i=7&show_sub=1 - Open the ZIP File and extract the content to C:\WINDOWS\system32\inetsrv - Open your Start Menu and go to Administr...
by Rochinha
Sat Jun 21, 2008 6:36 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Very nice utilitie to see OCX Program ID
Replies: 0
Views: 432

Very nice utilitie to see OCX Program ID

Friends,

This utilitie show all registry informations about the activex in your system.

Download at http://www.5volution.com/forum/RegControls.zip
by Rochinha
Fri Jun 13, 2008 3:40 pm
Forum: FiveWin for Harbour/xHarbour
Topic: any sample with sending mail
Replies: 14
Views: 2393

Friends Take look this: ... DEFINE BUTTON OF oBar ; ACTION Blat( "Este e o corpo da mensagem",; "smtp.itelefonica.com.br",; "jscrocha@terra.com.br",; "irochinha@itelefonica.com.br",; "Greetings from Joe!",; "Usuario",; "Senha",; &...
by Rochinha
Mon Jun 09, 2008 2:36 am
Forum: FiveWin for Harbour/xHarbour
Topic: Blinking current row in xBrowse
Replies: 3
Views: 832

Good luck, A little modification: Function Blinking( oBrw ) if ! oBrw:lFocused oBrw:nClrNFBack := iif( oBrw:nClrNFBack==oBrw:nClrBackFocus,oBrw:nClrBackFocus,CLR_BLACK) oBrw:nClrNFFore := iif( oBrw:nClrNFFore==oBrw:nClrBackFocus,CLR_BLACK,oBrw:nClrBackFocus) oBrw:Refresh() endif return .t.
by Rochinha
Sun Jun 08, 2008 10:35 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Blinking current row in xBrowse
Replies: 3
Views: 832

Friend, For me its work with tWBrowse: ... @ 0,0 LISTBOX oLbxP1 FIELDS "" HEADERS "" SIZE 200,nSplitH PIXEL OF oChildWnd ... DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oLbxP1 ) ACTIVATE TIMER oCLITimer ACTIVATE WINDOW oChildWnd MAXIMIZED return nil Function Blin...
by Rochinha
Wed Jun 04, 2008 8:10 pm
Forum: FiveWin for Harbour/xHarbour
Topic: printer Function EnumPrinters with fwh
Replies: 11
Views: 4972

In Fivewin WINAPI. Code PRINTDC.C: #define ENDDOC _ENDDOC #define DRAFTMODE _DRAFTMODE #define STARTDOC _STARTDOC #include <WinTen.h> #include <Windows.h> #ifndef __FLAT__ #include <Print.h> #endif #include <CommDlg.h> #include <ClipApi.h> typedef struct { WORD vlen; BYTE data[10]; } ESCDATA; BOOL I...
by Rochinha
Wed Jun 04, 2008 8:57 am
Forum: FiveWin for Harbour/xHarbour
Topic: Download stock quote file from yahoo
Replies: 8
Views: 2804

Otto, Put this code: #include "fivewin.ch" #include "dll.ch" static xDLL // Need to TdWebService static oGet,oSay Function Main() local oDlg,oFont,WhatQuote:=space(50) local cResult := "Samples:" + CRLF + CRLF + "IBM" + CRLF + "MSFT+NO.TO" + CRLF + &...
by Rochinha
Wed Jun 04, 2008 8:34 am
Forum: FiveWin for Harbour/xHarbour
Topic: printer Function EnumPrinters with fwh
Replies: 11
Views: 4972

Otto Works with all printer local, network and virtual drivers. Function main() // With fisical printer MsgRun( isprint( "LPT1" ), "Printer Status", {|| SysWait(3) } ) // With a virtual printer driver MsgRun( isprint( "PDF4U Adobe PDF Creator" ), "Printer Status&qu...