FiveTech Software tech support forums

... in that it contains two message vars, ::cMsg and ::cMsgDef. Here is how I got it to work: oWnd:oMsgBar:cMsgDef:="xxx" oWnd:oMsgBar:setMsg("yyy") You must do both things. The message displayed is "xxx". If you don't pass something in setMsg() nothing happens, ...

... ) CLASS TDialog if ::lHelpIcon != nil .and. ! ::lHelpIcon if ::oCursor != nil SetCursor( ::oCursor:hCursor ) else CursorArrow() endif endif ::SetMsg( ::cMsg ) ::CheckToolTip() if ::bMMoved != nil return Eval( ::bMMoved, nRow, nCol, nKeyFlags ) endif return .f. //----------------------------------------------------------------------------// ...

David, prueba con oWnd:SetMsg("Tu mensaje")

... to this function ?? I am using the code each time I send an e-mail .. should WSAStartup() only be initialized once in a session ?? Rick oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { ...

... one fails .. something is just not trapping the code or closing the socket .. Really at a loss here if anyone can help. Here is my code oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting := { ...

Rick,

Just after:

oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) }

É difícil usar essas mensagens na barra de status da aplicação.
Mas se não tá funfando desse jeito... experimenta usar o
( wndMain() ):setMsg( "blabla bla" )

Esse, pelo menos, nunca falhou!

... ) oRsSpon:MoveNext() ENDDO Then pass this array to the SMTP Class : oWndMdi:SetMsg( "Sending Reporting noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting = { || ...

... += "Error "+STR(FERROR())+CHR(10) MsgInfo( SAYING ) ENDIF FWRITE( nHANDLE, cTEXT ) // write out the file FCLOSE( nHANDLE ) SysReFresh() oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting = { ...

... oWnd DEFINE WINDOW oWnd FROM 10,10 TO 20,70 SET MESSAGE OF oWnd TO "TEST ON MOVE" CLOCK DATE KEYBOARD NOINSET oWnd:bMoved := {|nRow,nCol|oWnd:setMsg(LTRIM(STR(nRow)) + " , " + LTRIM(STR(nCol)))} ACTIVATE DIALOG oWnd RETURN Notes : 1) The result is WRONG , nRow is always 0 2) Trying to use ...

oMsgBar:SetMsg("test")

... oWnd return nil //----------------------------------------------------------------------------// function SendMail() local oOutMail, cIP oWnd:SetMsg( "Sending Internet email..." ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( "hot.pl" ) ) MsgInfo( cIP ) oOutMail:bConnecting = ...

... imagem, porem ao abrir o email, a imagem vem em forma de caracter não como arquivo JPG que enviei??? function SendMail() local oOutMail, cIP oWnd:SetMsg( "Sending Internet email..." ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( "smtp.fivetechsoft.com" ) ) MsgInfo( cIP ) oOutMail:bConnecting ...

... oMail:oSocket:lDebug := .T. // uncomment to create log file oMail:oSocket:cLogFile := "c:\smtp.log" oMail:bConnecting := {|| oVentPrinc:SetMsg( "Connecting to " + cHost + " (" + oMail:cIPServer + ") and waiting for response..." ) } oMail:bConnected := {|| oVentPrinc:SetMsg( "Connected ...

Antonio Linares wrote:Taavi,

> but if omsgbar:settext() should display text

Do you mean oMsgBar:SetText() or oMsgBar:SetMsg() ?

Sorry, oMsgbar:SetMsg()

Taavi