FiveTech Software tech support forums

Lets make a try from scratch (based on sntp.cpp code): GetSNTP( cServer, ::nPort, ::lSync ) struct NtpServerResponse{  int m_nLeapIndicator; //0: no warning                        //1: last minute in day has 61 seconds                        //2: last ...

Hola, yo lo hice asi : cString:= "Provider=SQLOLEDB;server="+cServer+";database="+cDataBase+";uid="+cUser+";pwd="+cPass oCnx:=TAdoConn():New( adUseServer ) if !oCnx:Open(xConnStr) msginfo( 'String: ' + xConnStr + CRLF ...

... y mysql yo trato de acceder de la siguiente manera . #Include "Fivewin.ch" #Include "Ado.ch" FUNCTION Main() Local oCone Local cServer := "localhost" Local cUser := "root" Local cPass := "" Local cBase := "usuarios" oCone := CreateObject( ...

... 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)+";" ...

Hi Jeff

I have similar code except for

cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer

Cheers

Colin

... You have to allow the user to specify these settings. Basically you establish a connection with the required parameters hClient := SmtpConnect( cServer, nPort, nTimeOut, SMTP_OPTION_EXTENDED+SMTP_OPTION_SECURE,"",0) and then authenticate if necessary IF ( SmtpAuthenticate(hClient, ...

Mi pequeño aporte a bajar archivos de FTP Procedure BajarFilesFtp(eDlg) cServer := '31.170.160.81' cUser := 'yyyyyy'' cpassword:= 'XXXXXXX cUrl := "ftp://"+cUser+":"+cpassword+"@"+cserver eDlg:cMsg:="Conectando con el servidor ...

HB_SendMail( cServer,; // servidor smtp 25,; // Puerto cEmailFrom,; // From {cEmailTo},; // To {cEmailTo2},; // CC {cEmailTo3},; // CCO EnvioTxt,; // Cuerpo cEmSubject,; // Titulo {salida},; // adjuntos cEmailUser,; // usuario cEmailPass,; ...

FUNCTION ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,cDocNit,oFtp) cServer := cNomSer //change ftpserver to the real name or ip of your ftp server cUser := cNomUsr // change ftpuser to an valid user on ftpserer cPassword := cClaUsr // change ftppass to an valid ...

... size over http. this is the code: cRequest := "HEAD "+oUrl:BuildAddress() + " HTTP/1.1" + CRLF + ; "Host: "+oUrl:cServer+ CRLF + ; "User-Agent: HTTP-Get-File-Size" + CRLF + ; "Connection:close" + CRLF + ; CRLF Might indicate to us how to get ...

MarcoBoschi,

Exist in xHarbour this:

NetRedir( <cLocal> , ;
<cServer> , ;
[<cPassword>], ;
[<lShowError>] ) --> lSuccess

Regards

Yo lo hago con la clase TDns : nTypeDSN=0 // 0=DSN Sistema 1=DSN Usuario cNomODBF='MiODBC' cDBase ='MiBasedeDatos' cServer ='MiServidor' cUser ='MiUsuario' cPassWord='MiPassWord' oDsn:=TDsn():New(cNomODBC) oDsn:Create(cNomODBC, ; 'Descripción de Mi ODBC',; cDBase ,; cServer ,; cUser ...

OIMAP := TOLEAUTO():NEW( "MAILBEE.IMAP4" ) OIMAP:LICENSEKEY := CMB_MAILKEY OIMAP:SERVERNAME := CSERVER OIMAP:USERNAME := CACCOUNT OIMAP:PASSWORD := CPASSWORD OSMTP:ENABLELOGGING = .T. OIMAP:ENABLELOGGING := .t. OIMAP:CONNECT( CSERVER ) OIMAP:SELECTMAILBOX( cFolder ...

... local cIP cIP:=GetPublicIP() define dialog oDlg resource "CDILAUNCHER" ... ... activate dialog oDlg center return function GetPublicIP(cServer,cWeb) local oWnd,cIP:="",nI:=0,nF:=0 public cTextWeb:="" default cServer:="xxx",cWeb:="xxx" define window ...

... NEXT 2 . Check if the server is ON and if the background programm on the server is ON . I create a file when the programm start IF file(m->cServer + "in\ATTESA.OK") ::lRete := TRUE ELSE MsgInfo("No Serever") ENDIF 3 . I send to the server a table situation request I ...