kapiaba

Membros
  • Content count

    21,981
  • Joined

  • Last visited

1 Follower

About kapiaba

  • Rank
    Timão
  • Birthday 08/08/1963

Profile Information

  • Gender
    Male
  • Location
    São Paulo
  • Interests
    Programação de Computadores em Fivewin For xHarbour.

Contact Methods

  • Skype
    joao@pleno.com.br

Recent Profile Visitors

1,801 profile views
  1. Gerar arquivo em BASE64 - By Marcio Ferreira. Skype: live:xtsystem #include "fivewin.ch" FUNCTION Main() Local cfilein,cfileout,tag51 cfilein :='C:\TESTE\IMAGEM.PDF.P7S' cFileOut :='BASE64.TXT' if !file(cfilein) msginfo('Arquivo: '+CRLF+CRLF+cfilein+CRLF+CRLF+; 'não encontrado...','Atenção' ) exit endif hb_base64encodefile( cfilein , cfileout ) nHandle := fOpen( cfileout ) HB_FreadLine( nHandle, @tag51 ) fclose( nHandle ) ferase( nhandle ) dbselectarea(ofilexml) oFilexml:AppendLn( ' <imagem>' ) oFilexml:AppendLn( ' <protocolo>'+strzero(ARQUIVO->protocolo,10)+'</protocolo>' ) oFilexml:AppendLn( ' <data_protocolo>'+dtoc(ARQUIVO->data_ent)+'</data_protocolo>' ) oFilexml:AppendLn( ' <base64>'+tag51+'</base64>' ) oFilexml:AppendLn( ' </imagem>' ) // tem que incluir a TIP.LIB /* monto um relatorio, gero a imagem pelo pdfcreator gerando um PDF. Depois assino este arquivo com um assinador qualquer. Ai depois converto em base64 Márcio Ferreira - Dúvidas, chama-lo Skype. kkkkkkkkkkkkkkkk - num SAY() de nada. Skype: live:xtsystem */ RETURN NIL
  2. Documentando: // FWH Class TOutLook2010 - C:\FWH1701\SAMPLES\TEST2010.PRG #include "FiveWin.ch" #include "Splitter.ch" #include "OutLook.ch" static lExit := .F. //----------------------------------------------------------------------------// function Main() local oWnd, oOutLook2010, oStatusBar, oSplit, cCombo, oRad, nValue := 1 local oFont, oExBar, oPanel1, oPanel2, bClick := { | o | MsgInfo( o:GetText() ) } DEFINE WINDOW oWnd TITLE "FWH new Class TOutLook2010" MDI // ; // MENU BuildMenu() DEFINE OUTLOOK2010 oOutLook2010 OF oWnd ; PROMPTS "Mail", "Calendar", "Contacts", "" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" oWnd:oLeft = nil // Because the splitter is going to control the resize @ 0, 0 EXPLORERBAR oExBar OF oOutLook2010:aDialogs[ 1 ] ; SIZE oOutLook2010:aDialogs[ 1 ]:nWidth, oOutLook2010:aDialogs[ 1 ]:nHeight oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" ) oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" ) @ 1, 1 COMBOBOX cCombo ITEMS { "January", "February", "March", "April", "May" } ; OF oOutLook2010:aDialogs[ 2 ] SIZE 170, 100 DEFINE FONT oFont NAME "Arial" SIZE 0, -10 @ 12, 10 SAY Date() OF oOutLook2010:aDialogs[ 2 ] SIZE 80, 20 FONT oFont @ 3, 1 RADIO oRad VAR nValue OF oOutLook2010:aDialogs[ 2 ] ; ITEMS "&Day", "&Week", "&Month" SIZE 100, 20 oRad:SetFont( oFont ) @ 1, 2 BUTTON "New" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION BuildDlg() @ 3, 2 BUTTON "Edit" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Edit" ) @ 5, 2 BUTTON "Search" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Search" ) DEFINE STATUSBAR oStatusBar PROMPT " FWH Class TOutLook2010" OF oWnd // se for windows 10, desligar este comando: // http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 // SetParent( oOutLook2010:hWnd, oWnd:hWnd ) oWnd:oClient = nil @ 0, 191 SPLITTER oSplit ; VERTICAL _3DLOOK ; PREVIOUS CONTROLS oOutLook2010 ; HINDS CONTROLS oWnd:oWndClient ; SIZE 4, oWnd:nHeight - 70 PIXEL ; OF oWnd // se for windows 10, desligar este comando: // http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 // SetParent( oSplit:hWnd, oWnd:hWnd ) ACTIVATE WINDOW oWnd ; ON RESIZE ( oSplit:Adjust(),; WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ),; WndWidth( oWnd:oWndClient:hWnd, oWnd:nWidth - oOutLook2010:nWidth - 23 ) ) ; // + 80 VALID lExit := .T. return nil //----------------------------------------------------------------------------// function BuildMenu() local oMenu MENU oMenu MENUITEM "&One" MENUITEM "&Two" MENUITEM "&Three" ENDMENU return oMenu //----------------------------------------------------------------------------// function BuildDlg() local oDlg, oOutL2010 DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE OUTLOOK2010 oOutL2010 ID 110 OF oDlg ; PROMPTS "One", "Two", "Three" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" ; DIALOGS "Page1", "Page2", "Page3" REDEFINE BUTTON ID 110 OF oOutL2010:aDialogs[ 1 ] ACTION MsgInfo( "Click" ) ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// function WinRun() while NoGPF() if lExit PostQuitMessage( 0 ) endif end return nil //----------------------------------------------------------------------------// #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> BOOL SysRefresh( void ); HB_FUNC( NOGPF ) { __try { hb_retl( SysRefresh() ); } __except ( ( hb_retl( TRUE ), TRUE ) ) {} } #pragma ENDDUMP /* Resolvido com ajuda do Linares (Mestre!): "In FWH/samples/test2010.prg please comment out these lines: // SetParent( oOutLook2010:hWnd, oWnd:hWnd ) and // SetParent( oSplit:hWnd, oWnd:hWnd )" Valeu! http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 */
  3. Não faço idéia. Pode ser o manifest; crie um tópico no forum inter e mostre as imagens e o fonte como você alterou. abs.
  4. O que acontece quando voce testa este exemplo no windows 10? // FWH Class TOutLook2010 - C:\FWH1701\SAMPLES\TEST2010.PRG #include "FiveWin.ch" #include "Splitter.ch" #include "OutLook.ch" static lExit := .F. //----------------------------------------------------------------------------// function Main() local oWnd, oOutLook2010, oStatusBar, oSplit, cCombo, oRad, nValue := 1 local oFont, oExBar, oPanel1, oPanel2, bClick := { | o | MsgInfo( o:GetText() ) } DEFINE WINDOW oWnd TITLE "FWH new Class TOutLook2010" MDI // ; // MENU BuildMenu() DEFINE OUTLOOK2010 oOutLook2010 OF oWnd ; PROMPTS "Mail", "Calendar", "Contacts", "" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" oWnd:oLeft = nil // Because the splitter is going to control the resize @ 0, 0 EXPLORERBAR oExBar OF oOutLook2010:aDialogs[ 1 ] ; SIZE oOutLook2010:aDialogs[ 1 ]:nWidth, oOutLook2010:aDialogs[ 1 ]:nHeight oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" ) oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" ) @ 1, 1 COMBOBOX cCombo ITEMS { "January", "February", "March", "April", "May" } ; OF oOutLook2010:aDialogs[ 2 ] SIZE 170, 100 DEFINE FONT oFont NAME "Arial" SIZE 0, -10 @ 12, 10 SAY Date() OF oOutLook2010:aDialogs[ 2 ] SIZE 80, 20 FONT oFont @ 3, 1 RADIO oRad VAR nValue OF oOutLook2010:aDialogs[ 2 ] ; ITEMS "&Day", "&Week", "&Month" SIZE 100, 20 oRad:SetFont( oFont ) @ 1, 2 BUTTON "New" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION BuildDlg() @ 3, 2 BUTTON "Edit" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Edit" ) @ 5, 2 BUTTON "Search" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Search" ) DEFINE STATUSBAR oStatusBar PROMPT " FWH Class TOutLook2010" OF oWnd SetParent( oOutLook2010:hWnd, oWnd:hWnd ) oWnd:oClient = nil @ 0, 191 SPLITTER oSplit ; VERTICAL _3DLOOK ; PREVIOUS CONTROLS oOutLook2010 ; HINDS CONTROLS oWnd:oWndClient ; SIZE 4, oWnd:nHeight - 70 PIXEL ; OF oWnd SetParent( oSplit:hWnd, oWnd:hWnd ) ACTIVATE WINDOW oWnd ; ON RESIZE ( oSplit:Adjust(),; WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ),; WndWidth( oWnd:oWndClient:hWnd, oWnd:nWidth - oOutLook2010:nWidth - 23 ) ) ; // + 80 VALID lExit := .T. return nil //----------------------------------------------------------------------------// function BuildMenu() local oMenu MENU oMenu MENUITEM "&One" MENUITEM "&Two" MENUITEM "&Three" ENDMENU return oMenu //----------------------------------------------------------------------------// function BuildDlg() local oDlg, oOutL2010 DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE OUTLOOK2010 oOutL2010 ID 110 OF oDlg ; PROMPTS "One", "Two", "Three" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" ; DIALOGS "Page1", "Page2", "Page3" REDEFINE BUTTON ID 110 OF oOutL2010:aDialogs[ 1 ] ACTION MsgInfo( "Click" ) ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// function WinRun() while NoGPF() if lExit PostQuitMessage( 0 ) endif end return nil //----------------------------------------------------------------------------// #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> BOOL SysRefresh( void ); HB_FUNC( NOGPF ) { __try { hb_retl( SysRefresh() ); } __except ( ( hb_retl( TRUE ), TRUE ) ) {} } #pragma ENDDUMP
  5. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24348&p=131870&hilit=groupbox#p131870
  6. #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWnd DEFINE WINDOW oWnd TITLE "Testing GDI+ Class" FROM 5,5 TO 600, 800 PIXEL // ownd:setcolor(nrgb(120,120,120),nrgb(120,120,120)) @28,4 button "rectangle" size 120,30 Action Drawrectangle(ownd) @28,24 button "roundrect" size 120,30 Action Drawroundrect(ownd) @28,44 button "drawImage" size 120,30 Action DrawImage(ownd) @28,64 button "drawEllipse" size 120,30 Action DrawEllipse(ownd) @28,84 button "drawlight" size 120,30 Action Drawlight(ownd) ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// function Drawrectangle(ownd) local hdc:= oWnd:getdc() local oGraphics := Graphics():New( ownd:hDC ) local oPen := Pen():New( 255, 0, 0, 255 , 10 , .T.) oGraphics:DrawRect( oPen, , 300, 300, 70, 60 ) oGraphics:destroy() oWnd:releasedc() Return nil function Drawroundrect(ownd) local hdc:= oWnd:getdc() local oGraphics := Graphics():New( ownd:hDC ) local oPen2 := Pen():New( 255, 255, 0, 0 , 3 ) local oPath:= Path():new() oPath:AddRoundRect( 30, 30 , 50, 50 , 9 ) oGraphics:DrawPath( oPen2, oPath ) oGraphics:destroy() oWnd:releasedc() Return nil function DrawImage(ownd) local hdc:= oWnd:getdc() local oGraphics := Graphics():New( ownd:hDC ) local oImage:= GDIBmp():new("C:\FWH1701\bitmaps\pngs\image2.png" ) oGraphics:DrawImage( oImage , 60 ,60 ) oGraphics:destroy() oWnd:releasedc() Return nil function DrawEllipse(ownd) local hdc:= oWnd:getdc() local oGraphics := Graphics():New( ownd:hDC ) local oBrush2 := Brush():NewSolidBrush( 150, 0, 255, 167 ) local oPen2 := Pen():New( 255, 255, 0, 0 , 3 ) oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 ) oGraphics:destroy() oWnd:releasedc() Return nil function Drawlight(ownd) local hdc:= oWnd:getdc() local oGraphics := Graphics():New( ownd:hDC ) local oPen local n oPen := Pen():New( 255 , 0, 0 , 0 , .T.) oGraphics:DrawRoundRect( oPen, , 400 , 200, 100 , 150 ) oPen:setColor( 255 , 214, 234, 249 ) oPen:setsize(1) for n = 1 to 10 oPen:setcolor( 255-n*25 , 214, 234, 249 ) oGraphics:DrawRoundRect( oPen, , 400-n , 200-n, 100+n*2 , 150+ n*2 ) next open:destroy() oGraphics:destroy() oWnd:releasedc() Return nil
  7. Veja se ajuda este texto do PCToledo que pegeui um dia... Impressora Termica Epson tm-t88IIIp - Guilhotina Re: Qual o comando para acionar a abertura da gaveta na Olivetti Cortar papel na Guilhotina Epson/olivetti Prezado Colega Segundo o guia de referência da Olivetti ela emula a Epson TM-T88 e TM-T90, partindo desse principio então podemos acreditar que ela usa o padrão EPSON ESC/POS de comandos, no link abaixo poderá baixar a lista de comandos no padrão ESC/POS. http://postechgroup.com/updata/support/ ... ESCPOS.pdf É bom baixar e guardar, pois esse padrão é utilizado na maioria das impressoras térmicas. No seu caso o comando deve ser o ESC+p. = CHR(27)+CHR(112) Outro comando que pode ser útil é o da guilhotina GS+V = CHR(29)+CHR(86) Boa sorte ! Até logo. Marcelo Correto: Bom dia a todos, Obrigado Roberio, muito bom! Nestes codigos de comando não tem o comando para acinar a guilhotina, mas consegui descobrir na net da vida. ESC m ( CHR(27)+CHR(109) Obrigado a todos. Bematech 4200 TH - Comando de imporessão Nova mensagempor lugab » 17 Fev 2014 13:36 Bom dia, colegas Alguém pode passar a linha de comando da 4200 TH para fazer o corte do papel ? Grato Gabriel // PC TOLEDO lugab@bol.com.br lugab Bematech 4200 TH - Comando de imporessão Oi! ? chr(27)+'i' Troque o 'i' pelo 'm' p/ marca epson. Saudações, Itamar M. Lins Jr. EPSON SET DEVICE TO PRINTER && manda a impresora CHR(27)+CHR(64) && inicializa la impresora CHR(27)+"c0"+CHR(1) && imprime un solo rollo (receipt CHR(27)+"c0"+CHR(2) && imprime un solo rollo journal CHR(27)+chr(122)+chr(1) && imprime en ambos rollos * ESTOS 2 TE HACEN EL CORTE CHR(27)+"d"+CHR(3) CHR(27)+CHR(109) chr(27)+chr(112)+chr(0)+chr(25)+chr(250) && abre el cajon SET PRINTER to
  8. Poste suas imagens aqui: https://uploaddeimagens.com.br
  9. Rodrigo Melo, quando fizer uma pergunta, mostre do que se trata, desta forma aqui, para poder se ajudado. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32980&p=194193&hilit=OutLook2010#p194193 Apresente o problema, pois... Abs.
  10. Excelente, essa eu não sabia: <file.jar> Nome do arquivo .jar a ser iniciado. É utilizado apenas com a opção -jar. O arquivo .jar denominado deve conter arquivos de classe e de recurso do aplicativo, com a classe de inicialização indicada pelo cabeçalho de manifest Main-Class.
  11. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=0
  12. Pequena aula para ajudar os iniciantes em Fivewin 32 bits. http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=18876 Abs.
  13. Só não entendi a parte do SMS. #include "FiveWin.ch" static oWnd function Main() local oBar, t_sms, t_mess local cPhone, cNome, cComment, CodeCountry cPhone := "11951577341" cNome := "Joao@xxxxx.com.br" cComment := "Mensagem de natal e ano novo" CodeCountry := "55" t_sms := "xxxxxxxxxxx" t_mess := "Mensagem via skype" DEFINE WINDOW oWnd TITLE "Chamando Skype" DEFINE BUTTONBAR oBar _3D OF oWnd DEFINE BUTTON OF oBar ; ACTION PhoneTO( cPhone, cNome, cComment, CodeCountry ) // ACTION EnviaSms( t_sms, cnome, t_mess, CodeCountry ) SET MESSAGE OF oWnd TO "Chamando Skype" NOINSET CLOCK DATE KEYBOARD ACTIVATE WINDOW oWnd return nil FUNCTION PhoneTO( cPhone, cNome, cComment, CodeCountry ) Local oSkype,oCall,oUser // DEFAULT CodeCountry := CountryCode() if empty(cPhone) ? "Telefone nao valido" return 0 endif //if its a user do nothing if val(cPhone) <>0 //phone number build format cPhone := alltrim(cPhone) // in the databse all international numbers have 00 //it must be taken out if substr(cPhone,1,2) == "00" cPhone := substr(cPhone,3) else //all others are national numbers code country must be added cPhone := CodeCountry+cPhone endif cPhone :="+"+cPhone endif Try oSkype := GetActiveObject("Skype4COM.Skype") Catch Try oSkype := CreateObject("Skype4COM.Skype") Catch alert("Skype4Com não está instalado!"+; ";"+ole2txterror()) return 0 End End If .not. oSkype:Client:IsRunning() MsgRun("Informação","Activando o Skipe",{||oSkype:Client:Start()}) Endif //not online if oSkype:CurrentUserStatus <> oSkype:Convert:TextToUserStatus("ONLINE") //lets pout it on line oSkype:changeUserStatus(oSkype:Convert:textToUserStatus("ONLINE")) endif Try oUser:= oSkype:user(cPhone) oCall := oSkype:PlaceCall(oUser:Handle) Catch MsgInfo("Chamada falhada! Telefone: "+cPhone) return 0 End oSkype := Nil RETURN 1 FUNCTION EnviaSms(t_sms,cnome,t_mess,CodeCountry) Local oSkype,oSMS,oTarget,oChunk,oCall,oUser // DEFAULT CodeCountry := CountryCode() if empty(t_sms) return 0 endif //if its a user do nothing if val(t_sms) <>0 //phone number build format t_sms := alltrim(t_sms) // in the databse all international numbers have 00 //it must be taken out if substr(t_sms,1,2) == "00" t_sms := substr(t_sms,3) else //all others are national numbers code country must be added t_sms := CodeCountry+t_sms endif t_sms :="+"+t_sms endif //format message t_mess := alltrim(t_mess) t_mess := strtran(t_mess,"",chr(12)+CHR(13)) t_mess := strtran(t_mess,"",CHR(13)) t_mess := strtran(t_mess,"",chr(26)) Try oSkype := GetActiveObject("Skype4COM.Skype") Catch Try oSkype := CreateObject("Skype4COM.Skype") Catch alert("Skype4Com não está instalado!"+; ";"+ole2txterror()) return 0 End End If .not. oSkype:Client:IsRunning() MsgRun("Informação","Activando o Skip",{||oSkype:Client:Start()}) Endif //not online if oSkype:CurrentUserStatus <> oSkype:Convert:TextToUserStatus("ONLINE") //lets pout it on line oSkype:changeUserStatus(oSkype:Convert:textToUserStatus("ONLINE")) endif Try oUser:= oSkype:user(t_sms) oSMS := oSkype:SendSms(oUser:Handle, t_mess) // generic Catch msginfo("Não foi possivel enviar o SMS!") return 0 End MsgWait( "A aguardar confirmação de envio da sms para: "+t_sms, "Skype SMS", 10 ) If oSms:Status()<>5 // not delivered ? Msginfo("O envio da SMS pode ter falhado! ") return 0 // erro SMS Endif oSkype := Nil RETURN 1
  14. Ops. Sorry, não tinha visto completo. é a pressa. Entre em contato com o Sr. Gilmer tavares no email: VIRTUAL OBJECT INFORMÁTICA - Representante do FiveWin no Brasil. R Goiacoz, 305 - Vila Progresso, Sorocaba, SP - CEP: 18090-590 Fone: (15) 3231-6840 Representante autorizado: Gilmer Tavares. Email: gilmer@fivewin.com.br skype: fivewinbrasil@hotmail.com http://fivewin.com.br/index.php?/topic/21606-comprar-licenca/ abs.