FiveTech Software tech support forums

... oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=" + cServer + ;
";database=" + cDatabase + ;
";uid=" + cUser + ;
";port=" + cPort + ;
";pwd=" + cPass )

oRecordSet := TOleAuto():New("adodb.recordset")
oComando := TOLEAUTO():New("adodb.command")
oRecordSet:CursorType := 1 ...

... cHora)

? BemaReporteZeta(cFecha,cHora),"REPORTEZ"

RETURN .T.

FUNCTION ISWINXP()
RETURN .T.

//Faz abertura do dia
// DLL32 FUNCTION LECTURA ( cPort AS LPSTR ) AS LONG PASCAL ;
// FROM "IniPuertaStr" LIB oDp:nBemaDLL

//DLL32 FUNCTION LECTURA( cPort AS STRING ) AS LONG PASCAL FROM "IniPuertaStr ...

Enrico,
IF you have COM1 in your micro, could you try this code for a COM port that doesn't exist ?
I'm having the problem when I try to do an OpenComm( cPort, 1024, 10 ), for a COM port that doesn't exist in my computer. The function returns -1, but each time I try, CPU use is increased quickly.

... STATIC FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort, lNotification, lSSL )

LOCAL lOk := .F.

LOCAL oCfg, oMsg

LOCAL cCc := ""

LOCAL i

DEFAULT lHtml := "<html" $ LOWER( cMessage )
DEFAULT ...

... I am passing all parameters to sendmail()

SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort,lNotification , lSSL )

This is the return message : "Unsent message check windows live mail"

LOCAL cFrom := "amriazkhan@gmail.com"
LOCAL ...

... connection")
oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=" + cServer + ;
";database=" + cDatabase + ;
";uid=" + cUser + ;
";port=" + cPort + ;
";pwd=" + cPass )
xRfc:="XAXX010101XXX"

If Empty(oCone)
MsgAlert(" No se pudo establecer la conexion con la Base de Datos..","Atencion ...

... 10,20, "This goes in line 10, column 20")
oPrn:EndPage() // optional

oPrn:End()

A little description of all the members of this class:

DATAs:
cPort: Printing port, by default "LPT1"
cCompress: String for compressed mode, by default "15"
cNormal: String for normal mode, by default "18 ...

... 10,20, "This goes in line 10, column 20")
oPrn:EndPage() // optional

oPrn:End()

A little description of all the members of this class:

DATA:

cPort: Printing port, by default "LPT1"
cCompress: String for compressed mode, by default "15"
cNormal: String for normal mode, by default "18 ...

... cSender, cUser, cPassword )

RETURN NIL
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort, lNotification )
...
...

maybe something missing or not possible to use it ?
or is there maybe another working sample in the meantime
because ...

... t.)

/********************************************************/
static function ConnectTo()
/*
*/
LOCAL oServerIni, cServer, cUser, cPass, cBanco, cPort, nPort, nFlags, oErr

Pega_Script('connect.ini', @cServer, @cUser, @cPass, @cBanco, @cPort )

oServerIni := NIL
nPort := Val(cPort)
nFlags ...

... nbsp; &nbsp; 8388608#define PRINTER_STATUS_POWER_SAVE &nbsp; &nbsp; &nbsp; &nbsp;16777216//------------------------FUNCTION Main&#40;&#41;Local cPort,aPrn,nStatus,aPrintercPort := PrnGetPort&#40;&#41;Msginfo&#40; cPort &#41;cPrinter := GetDefaultPrinter&#40;&#41;msginfo&#40; "cPrinter" &#41 ...

... de entorno ORACLE_HOME al directorio de tu instalcion de Instant Client.

cCmd :="Provider=OraOLEDB.Oracle;Data Source="+alltrim(cServer)+":"+alltrim(cPort)+"/"+alltrim(cSid)+";User ID="+alltrim(cUser)+";Password="+alltrim(cPassword)+";"

// ??? cCmd

oCn := FW_OpenAdoConnection( cCmd )


Slds

... con la misma version de windows.

En una aplicacion para imprimir remisiones tipo DOS, tengo ha grandes rasgos esta function:

function ImprDos(cPort)
local OBJ_PRINT
local OBJ_FILE:=NombreTmp('PRN') // nombre de archivo temporal con extencion PRN

OBJ_PRINT:=TDosPrn():New(OBJ_FILE)
OBJ_PRINT ...

... MANEJO estas funciones y me abre elpuerto como servidor y yo puede manipular todas las operaciones

hb_InetInit()

Socket := hb_InetServer( val( cPort ) )

ya con esta dos funciones ya puedo recibir la informacion de los clientes

y con hbsocket cuales serias las funciones para iniciar como ...

... 10,20, "This goes in line 10, column 20")
oPrn:EndPage() // optional

oPrn:End()

A little description of all the members of this class:

DATA:

cPort: Printing port, by default "LPT1"
cCompress: String for compressed mode, by default "15"
cNormal: String for normal mode, by default "18 ...