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 := dDay
oChk:SetCheck( FALSE ...

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 !IsInternet()
aviso ...

... 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 ...

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 ...

... 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 early versions if you compile again ...

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 asi funciona para xHarbour y Harbour ...

... 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 ...

... 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 ...

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 ...