FiveTech Software tech support forums

... to server de bell WSA ERROR CODE : 10060 can you held me donne la meme erreur (same error) function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) oOutMail ...

... not establish connection to server1.activedata.ca WSA ERROR CODE : 10060 can you held me function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) oOutMail ...

... que modifica el mensaje Ejemplo : función modifica_mensaje(ventana_poseedora) - Segundo, modifica SET MESSAGE con el comando: ventana_poseedora:Setmsg('tu nuevo mensaje') Espero te sirva Saludos Julio César Gómez Cortéz Godryc Experiencias

... the message bar 'blinks' when I do this. Any way to just change the value of TMsgBar() without using the :New method? Thanks Rick Lipkin ps .. :SetMsg() only sends a temporary text to the MsgBar

... Dado que mi intención es enviar varios mails uno detrás de otro, he necesitado modificarlo de la siguiente manera: oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) } por: oOutMail:bDone = { || (oWnd:SetMsg( "Message sent successfully" ), WSACleanup()) } ...

You need to use text and when changed you need to call oBrw:SetMsg( cnewtext )

Thanks,
Yes, I have tried it...
But SetText() is the same as SetMsg():

Code: Select all  Expand view

METHOD SetText( cText ) INLINE ::SetMsg( cText )

Hi Bayron

Try

oWnd:setmsg("My msg ")

Regards

... 9.0? 2) method editexit - browse com array ao sair da edição estava ficando louca a tela, resolvi assim: METHOD TSBrowse:EditExit() ... Após ::SetMsg( cMsg ) adicionei ::Refresh(.f.) Existe algum estrutural nesta alteração? ex: * ============================================================================ ...

... "smtp.ulg.ac.be" ) ) * oMail := TSmtp():New( cIP := GetHostByName( "smtp.ulg.ac.be" ) ) * oMail:bConnecting = { || oWnd:SetMsg( "Connecting to smtp ..." ) } oMail:bConnected = { || oWnd:SetMsg( "Connected" ) } * oMail:bDone = { || oWnd:SetMsg( "Mail ...

... definitions for each browse: oBrw:bDragBegin := { |nRow,nCol,nKeyFlags| ; SetDropInfo( {oBrw:nColSel, oBrw:nArrayAt, "B1"} ), oWnd:SetMsg("Dragging") } oBrw:bDropOver := { |uDropInfo, nRow, nCol, nKeyFlags | ; DragDrop(uDropInfo,nRow,nCol,nKeyFlags,oBrw,oBrw2) } oBrw2:bDragBegin ...

... local cMsg if Len( cBuffer ) > 0 cMsg:= "Buscando: " + cBuffer oMsgBar:nClrText:= CLR_BLUE else cMsg:= cDefaultMsg endif oMsgBar:SetMsg( PadR( cMsg ,200) ) oMsgBar:nClrText:= nClrText return Nil //----------------------------------------------------------------------------// Function ...

... Tooltip. The changes are below: In class TButtonBmp METHOD MouseMove( nRow, nCol, nFlags ) INLINE Super:MouseMove( nRow, nCol, nFlags ),; ::oWnd:SetMsg( ::cMsg ), ::Refresh() ,; If(SetSkins() .and. !Empty(::cToolTip), ::Display(), Nil) :D

Antonio, you use in the example:
oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) }

and i use:
oOutMail:bConnected = { || (cV := "Connected", oSay:refresh()) }
where cV is the variable from the say-object

... TIMER oTmr ACTIVATE WINDOW oWnd MAXIMIZED * * === procedure CheckT(pr) LOCAL hWnd,wjacfo,vdxx static cteur:=1 if pr=NIL cteur:=cteur+1 oWnd:SetMsg("Value TimeOut :"+str(cteur,10)+" ") else cteur:=pr && reset endif * if cteur > 300 && This will stop ...