Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #58 da revista programar. Faz já o download aqui!

Actividade Recente

Esta stream actualiza-se automaticamente     

  1. Ontem
  2. Inserir Struct em Matriz tridimencional?!?

    boas eu estou a fazer um trabalho escolar no qual tenho de fazer uma maquina de snacks, criei uma struct pra os produtos e uma matriz tridimensinal para as prateleiras , colunas e stock de cada coluna ... a minha duvida é como colocar em cada elemento da matriz para a colocção dos produtos. cumprimentos e desde ja obrigado , Bernardo
  3. Assinar digitalmente codigo

    Relativamente a onde comprar, tens muitas opções. Por exemplo: https://www.instantssl.com/code-signing-certificate.html https://www.digicert.com/code-signing/ https://www.thawte.com/code-signing/ Quanto a assinar a aplicação, o Windows tem ferramentas para isso: https://msdn.microsoft.com/en-us/library/aa387764.aspx. Não sei se o VS tem mais alguma coisa de útil.
  4. LISTVIEW

    Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso somar uma coluna do ListView1: FrmDesvio.ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVaccNC_Sec.Text
  5. O ficheiro de uma aplicação Android é chamado de Android Package (apk), e não é mais que um ficheiro Zone Information Protocol (ZIP) comprimido. Começamos com algumas breves questões: É possível descomprimir um apk? Sim. Então, também é possível ler o código-fonte de um apk? Sim. Os apks são reversíveis através de engenharia reversa? Sim. Isso quer dizer que, é possível encontrar dados sensíveis como, por exemplo, palavras-passe e Application Programming Interface (API) keys, ao longo do código? Sim. É possível construir um apk totalmente seguro — à prova de bala? Este artigo tem o objetivo de passar alguns procedimentos de forma a que qualquer developer, ou fulano com conhecimentos básicos sobre Android, consiga auditar sua própria aplicação antes que esta seja publicada e maliciosamente explorada. E respondendo à última questão: -”Nim”. Ler mais…
  6. Utilizar Webservices da AT

    num vista se colocar o TLS dá o erro 500, se retirar e ficar o tls1.0 e tls1.1 dá que a ligação foi fechada pelo servidor. Nos postos windows 10 está a funcionar.
  7. Utilizar Webservices da AT

    E o erro é o mencionado acima? Entretanto os outros clientes estão a comunicar bem?
  8. Utilizar Webservices da AT

    Penso que o suporte do TLS1.2 ao nível do cliente é definido pelo sistema operativo. O meu utilitário és feito com .net 4.5. No caso em que me está a dar erro é um windows vista e tem a framework 4.5.1 instalada. Tenho outros clientes a funcionar, mas acho que são windows7.
  9. Utilizar Webservices da AT

    Tens de ter a 4.5, no mínimo.
  10. Utilizar Webservices da AT

    Viva, Acho que o servidor arrochou. Estive durante a manhã de hoje a comunicar sem problemas. A partir das 11:00 comecei a ter esse erro, depois deixei de o receber por volta das 12:30 e agora voltei a receber...
  11. Utilizar Webservices da AT

    Aparentemente a versão mínima do windows para suportar TLS1.2 é o windows 7, alguém tem isto a funcionar em versões anteriores?
  12. Utilizar Webservices da AT

    Como ultrapassou a questão do TLS, no .net 4.5 estou a usar ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls11 | SecurityProtocolType.Tls12 | SecurityProtocolType.TLS; Isto estava a funcionar até agora, mas deixou de funcionar e devolve o famoso erro 500. Alguém sabe o que se passa?
  13. SAFT-PT: debate de dúvidas e ideias

    Thanks americob, With SNC you want to say that it is only for the accounts with Taxonomy Code assigned? In our case, we are using an alternative accounts for Portugal but authorities required us that we have to map all the accounts (also not used). So, we have accounts without Portuguese description... Does anyone have this problem? Thanks a lot!
  14. O p@p tá morto?

    Estamos só moribundos...
  15. Scarry... não tinha sequer ouvido falar em session replay.... O artigo tem um link para uma lista de sites a utilizar este tipo de estratégia... A verdade é que há uma infinidade de código que "carregamos" ou autorizamos que seja injetado num site nosso sem conhecer o que andam a injetar... a começar pelas tags do google, quer seja para analitics ou outra library qualquer...
  16. Última semana
  17. Fonte: https://freedom-to-tinker.com/2017/11/15/no-boundaries-exfiltration-of-personal-data-by-session-replay-scripts/
  18. SAFT-PT: debate de dúvidas e ideias

    I think that, at least, the Top level accounts description must follow the portuguese law "SNC". You may always have two descriptions, one in Portuguese and other with the translation, and then use the Portuguese just for SAFT and some legally obliged reports.
  19. O p@p tá morto?

    Boa noite, Infelizmente já teve tempos melhores, mas não creio que esteja morto! Cordiais cumprimentos, Apocsantos
  20. Fazemos: StringConexao ="ATDT"+numeroTelefone+ #13#10; E fazemos WriteFile( hCommFile, PChar(StringConexao)[0], Length(s), NumberWritten, nil); E a mágica é feita! E o modem liga para um número. Agora preciso fazer o contrário: Ao receber um chamada, SIM, meu modem está recebendo chamadas quando alguém liga para o meu telefone, qual o comando, e em que situação chamar o comando para saber o número do telefone que está me ligando? Se WriteFile() É a responsável por fazer/receber as ligações, então de qual parâmetro eu retiro o número da ligação? Então, No endereço: Comandos Placa Nas últimas 2 linhas, estão os últimos 2 comandos que são: AT&Zn=s Armazenar número telefônico AT&Zn? Exibir número telefônico Como fazer para capturar então o número do telefone na estrutura da minha aplicação? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, spBina; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Memo1: TMemo; RadioButton1: TRadioButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; hCommFile: THandle; Status: LongBool; NumberWritten: DWORD; Buf : array[0..1023] of Byte; s :string; implementation uses ConvUtils; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //Testa os valores necessários begin //Abre a porta de comunicação s:='COM3'; hCommFile := CreateFile ( PChar(s), GENERIC_WRITE, 0, // não compartilhado nil, // sem segurança OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); // Verifica a abertura da porta if hCommFile = INVALID_HANDLE_VALUE then begin memo1.lines.clear; memo1.lines.add('Não foi possível abrir a porta selecionada.'); memo1.lines.add('Discagem não efetuada'); CloseHandle(hCommFile); end else begin memo1.lines.clear;memo1.lines.add('Discando...'); //Cria a string de comando if radiobutton1.checked then s:='ATDT' else s:='ATDP'; s := s + Edit1.Text + #13#10; //s := 'ATS'+#13#10; memo1.lines.add(s); //Envia a String de Comando NumberWritten:=0; WriteFile( hCommFile, PChar(s)[0], Length(s), NumberWritten, nil); memo1.lines.add('Aguardando Atendimento ...'); MessageDlg('Retire o telefone do gancho e clique OK para desligar o modem',mtInformation,[mbok], 0); //Desconecta a ligação WriteFile(hCommFile,'ATH',5,NumberWritten, nil); //Fecha a porta de comunicação CloseHandle(hCommFile);memo1.lines.add('Modem Desconectado.'#13#10); end; end; end; end. Descobri que fazendo: s := 'ATA+ #13#10; Recebe a ligação: Mas vem junto o barulho do modem E ainda não consigo pegar o número do telefone
  21. Atualizei a versão curl para 7.56.1 e agora já não dá Unable to load client key -8178 mas sim curl error 35 que já estive a ver e tem a ver con a certificação SSL no LOG obtenho: Alguém já conseguiu ultrapassar este problema. As pfxcert.pem e pfxcert.pem foram geradas com o TesteWebServices.pfx e ChavePublicaAT.cer mais recente. Por defeito está a colocar CAfile: /etc/pki/tls/certs/ca-bundle.crt mesmo que explicite no curl pfxcert.pem Connected to servicos.portaldasfinancas.gov.pt (213.13.158.240) port 701 (#0) Cipher selection: ALL:!EXPORT:!EXPORT40:!EXPORT56:!aNULL:!LOW:!RC4:@STRENGTH successfully set certificate verify locations: CAfile: /etc/pki/tls/certs/ca-bundle.crt CApath: none OpenSSL SSL_connect: SSL_ERROR_SYSCALL in connection to servicos.portaldasfinancas.gov.pt:701 stopped the pause stream! Closing connection 0
  22. Print Datagrid

    Boas, tenho uma aplicação que me permite imprimir os dados da datagrid, mas hoje deparei me com este erro: Isto só acontece quando tenho um determinado numero de linhas, ou seja, isto de momento só acontece quando tenho 66 registos, se acrescentar ou retirar um registo já não da erros, alguém consegue identificar o porquê? Deixo o código: Dim mRow As Integer = 0 Dim newpage As Boolean = True Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage ' sets it to show '...' for long text Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit) fmt.LineAlignment = StringAlignment.Center ' fmt.Trimming = StringTrimming.EllipsisCharacter Dim y As Int32 = e.MarginBounds.Top Dim rc As Rectangle Dim x As Int32 Dim h As Int32 = 0 Dim row As DataGridViewRow ' print the header text for a new page ' use a grey bg just like the control If newpage Then row = dg_produtos.Rows(mRow) ' --> Erro x = e.MarginBounds.Left rc = New Rectangle(x, y, dg_produtos.Size.Width, Label1.Size.Height) e.Graphics.FillRectangle(Brushes.Transparent, rc) e.Graphics.DrawRectangle(Pens.Transparent, rc) e.Graphics.DrawString("Listagem de " & Label1.Text, Label1.Font, Brushes.Black, rc, fmt) y += 35 For Each cell As DataGridViewCell In row.Cells ' since we are printing the control's view, ' skip invidible columns If cell.Visible Then rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height) e.Graphics.FillRectangle(Brushes.LightGray, rc) e.Graphics.DrawRectangle(Pens.Black, rc) ' reused in the data pront - should be a function Select Case dg_produtos.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment Case DataGridViewContentAlignment.BottomRight, DataGridViewContentAlignment.MiddleRight fmt.Alignment = StringAlignment.Far rc.Offset(-1, 0) Case DataGridViewContentAlignment.BottomCenter, DataGridViewContentAlignment.MiddleCenter fmt.Alignment = StringAlignment.Center Case Else fmt.Alignment = StringAlignment.Near rc.Offset(2, 0) End Select e.Graphics.DrawString(dg_produtos.Columns(cell.ColumnIndex).HeaderText, dg_produtos.Font, Brushes.Black, rc, fmt) x += rc.Width h = Math.Max(h, rc.Height) End If Next y += h End If newpage = False ' now print the data for each row Dim thisNDX As Int32 For thisNDX = mRow To dg_produtos.RowCount - 1 ' no need to try to print the new row If dg_produtos.Rows(thisNDX).IsNewRow Then Exit For row = dg_produtos.Rows(thisNDX) x = e.MarginBounds.Left h = 0 ' reset X for data x = e.MarginBounds.Left ' print the data For Each cell As DataGridViewCell In row.Cells If cell.Visible Then rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height) ' SAMPLE CODE: How To ' up a RowPrePaint rule 'If Convert.ToDecimal(row.Cells(5).Value) < 9.99 Then ' Using br As New SolidBrush(Color.MistyRose) ' e.Graphics.FillRectangle(br, rc) ' End Using 'End If e.Graphics.DrawRectangle(Pens.Black, rc) Select Case dg_produtos.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment Case DataGridViewContentAlignment.BottomRight, DataGridViewContentAlignment.MiddleRight fmt.Alignment = StringAlignment.Far rc.Offset(-1, 0) Case DataGridViewContentAlignment.BottomCenter, DataGridViewContentAlignment.MiddleCenter fmt.Alignment = StringAlignment.Center Case Else fmt.Alignment = StringAlignment.Near rc.Offset(2, 0) End Select If row.Cells(2).Value <= 0 Then e.Graphics.DrawString(cell.FormattedValue.ToString(), dg_produtos.Font, Brushes.Red, rc) Else e.Graphics.DrawString(cell.FormattedValue.ToString(), dg_produtos.Font, Brushes.Black, rc) End If x += rc.Width h = Math.Max(h, rc.Height) End If Next y += h ' next row to print mRow = thisNDX + 1 If y + h > e.MarginBounds.Bottom Then e.HasMorePages = True ' mRow -= 1 causes last row to rePrint on next page newpage = True Return End If Next End Sub
  23. Arduino leitura de voltagem

    Boa tarde amigos Estou a fazer um projecto onde tenho com o arduino saber a voltagem de uma bateria de 12 v Como fasso para saber a voltagem que a bateria tem com o arduino ? Obrigado
  24. SAFT-PT: debate de dúvidas e ideias

    Boa tarde! Do you know if the description of the accounts in SAFT file must be in Portuguese? We have some accounts with description in English. A few years ago AT demanded all the description in local language. Do you know anything about it? Thanks and regards
  25. Utilizar Webservices da AT

    Acabei de testar o servidor de testes e está a funcionar normalmente. Aqui há tempos dava a mensagem de erro 33, mas hoje não deu.
  26. Utilizar Webservices da AT

    Ontem depois de muitas tentativas para por a nova Chave Publica a trabalhar, também não consegui por a trabalhar no servidor de testes
  27. Utilizar Webservices da AT

    Sim, a chave publica é a mesma. Mas o servidor de testes tem andado com dor de fígado (o absinto era demasiado forte) e não funciona com toda a gente. Pelo menos comigo há meses que se sentou!
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade