FiveTech Software tech support forums

That was my first guess but this does not seem to work. For dDay := dStart to dEnd nEle++ nId++ lVar := FALSE oChk := nil If dDay >= dFrom .AND. dDay <= dTo Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:SetText( PadL( Day(dDay),2,"0" ) ) oChk:cargo ...

Olá,

é possivel gerar DLL xHarbour no FiveLinux ?

Eu preciso criar um CGI para Linux e nele vamos ler e executar programas que estão na DLL.

Grato.
Ari

... el ejemplo de CDOSYS mail, funcione correctamente se debe corregir una linea del codigo que esta mal escrita esto es lo que dicce en el PRG: For nEle := 1 To Len( aAttach ) :AddAttachment := AllTrim( aAttach[ nEle ] ) Next el error se produce al tratar de adjuntar archivos porque esta mal escrito ...

funcion: Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort, oDlg ) Local oCfg, oMsg, oError, nEle, cToken, bMens, lAuth:=!Empty(cUser).and.!Empty(cPass) Local aAttach:={} Default nPort := 25, ; cSubject := "", ; cBody := "" if ...

... // --- Enviar un mail Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort ) Local oCfg, oMsg, oError, nEle, cToken, bMens,; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 = port memvar aAttach Default ...

Ya encontre donde esta la falla del prg de cdosys. Nunca entra al ciclo

For nEle := 1 To Len( aAttach )
:AddAttachment := AllTrim( aAttach[ nEle ] )
Next

y por ello no tomas los archivos indicados y separados por comas..

Ola Francisco,

Desculpe, este exemplo tinha me passado batido. Vou dar uma analisada nele.

Obrigado pela sua atençao e um abraço.

Sergio....

... Puedes intentar hacer algo asi: Function Prueba() Local aTabla := { {0,0},{0,1},{0,2},{0,3},{0,4},{0,5} } //AEVal( aTabla , { | nV , nEle | Msginfo( Str(nV[1])+Str( nEle ) ) } ) AEVal( aTabla , { | nV , nEle | Porelarray( nV ) } ) //AEVal( aTabla , { | nV , nEle | Msginfo( Str(nV[1])+Str( ...

... Function fSendMail( cTo, cBCC, cSubject, cBody, cAttach ) Local oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := IIF(! Empty( cUser ) .and. ! Empty( cPass ), .T., .F.) ,; nSendOpt := 2 // send using: 1 = pickup folder 2 ...

Hello, Only change this line :AddAttachment := AllTrim( aAttach[ nEle ] ) by :AddAttachment( AllTrim( aAttach[ nEle ] ) ) This error occurs when you change from xHarbour to harbour 3, this modification don't affect programs working with xHarbour or Harbour ...

Hola, Cambia esta linea :AddAttachment := AllTrim( aAttach[ nEle ] ) Por :AddAttachment( AllTrim( aAttach[ nEle ] ) ) a mi me paso cuando cambie compilador de xHarbour a Harbour 3 y despues de dar muchas vueltas encontre que el llamado es diferente, y ...

... :From := Trim( cFrom ) :To := Trim( cTo ) :Subject := Trim( cSubject ) :TextBody := Trim( cBody ) For nEle := 1 To Len( aAttach ) :AddAttachment := AllTrim( aAttach[ nEle ] ) Next If ! Empty( cBCC ) :BCC := Trim( cBCC ) EndIf :Send() End With ELGUNA ...

... :From := Trim( cFrom ) :To := Trim( cTo ) :Subject := Trim( cSubject ) :TextBody := Trim( cBody ) For nEle := 1 To Len( aAttach ) :AddAttachment := AllTrim( aAttach[ nEle ] ) Next If ! Empty( cBCC ) :BCC := Trim( cBCC ) EndIf :Send() End With ELGUNA ...

Tenho um aplicativo em FWPPC e quando o usuario clica no menu iniciar, ele possibilita a abertura do sistema mais de uma vez.
Eu fiz um bloqueio pra isso.

Queria uma forma que se o sistema já estivesse rodando ele penas voltasse nele.

Espero ter explicado de forma clara aos amigos.

... // Funcion creada por Manuel Mercado en Febrero del 2009 Local oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 = port LOCAL lSendOk ...