Search the Community
Showing results for tags 'delphi'.
-
Chave Publica, privada e assinatura digital com LockBox no Delphi
Jose Pedro posted a topic in Delphi/Lazarus
sobre assinatura digital , chave privada e publica, estou gerando o hash utilizando a chave publica que crieu no OpenSSL, nao sei se o correto, alguem conhece as funcionalizada da bibloteca LockBox do Delphi? -
Menu em tempo de execução com tema VCL aplicado. Erro = Caption de Action ilegível
Jozimar posted a topic in Delphi/Lazarus
Bom dia! Durante a criação de um menu em tempo de execução com um tema aplicado, a descrição do CAPTION das Action estão ficando desconfigurados. O erro ocorre apenas quando os menus são criados em tempo de execução, conforme imagem abaixo: Imagem com demonstrando o erro. Abaixo código fonte do executável. ------------------------------------------------------------------------------------------------------- unit UFormPrincipal; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control -
REST request failed: Unspecified certificate from client
Adelson de Souza Tavares posted a topic in Delphi/Lazarus
Olá, Alguém já passou por esse problema. Ao enviar uma requisição utilizando o componente RestClient? Retorna o seguinte erro: REST request failed: Unspecified certificate from client. Imagem do erro https://ibb.co/y5NJyxh -
Já aqui anda no fórum algo do género, mas creio que não em Delphi/Pascal. Este é um algoritmo para validar um NIF (Nº de contribuinte) segundo as regras portuguesas. É em Delphi, mas com pouco trabalho se pode adaptar a Pascal, ou mesmo a qualquer outra linguagem. function ValidaNIF(NIF:String):Boolean; var i:byte; Control:Integer; begin // Testa o tamanho do NIF (Obrigatório 9 digitos) Result:=Length(NIF)=9; // Testa o NIF por tipo de caracteres (apenas númerico é aceite) try Control:=StrToInt(NIF); except Result:=False; end; // Testa se o
-
Pessoal, boa noite! Estou desenvolvendo um app em delphi com datasnap. Criei a seguinte rotina para atualizar uma tabela de chamados. Preciso que, ao atualizar, est atualize o STATUS para 'FECHADO'. No browser, a função funciona direitinho, mas quando testo no client, dá o aviso "chamado NÃO aualizado" Alguém poderia me dar uma mão? Ao meu ver, está tudo certinho. Aguardo, Luciano D. Leal Abços! //no servidor: function UpdateChamado(cham_id:integer; cham_cliente :string; cham_nomecli :String;cham_endereco:String;cham_bairro:string;cham_cep:string
-
Caros Colegas, No próximo dia 20 de Outubro de 2020 (terça-feira), haverá a Embarcadero Conference 2020, transmitida diretamente do Brasil, a partir das 13:00 de Portugal. Neste evento on-line, haverá muitas apresentações com as muitas tecnologias utilizadas em Delphi, onde poderão selecionar dentre mais de 40 apresentações. A Embarcadero Brasil disponibilizou-me 25 INGRESSOS EXCLUSIVOS para Portugal! Caso tenha interesse em participar deste evento, envie um mail para georgedeluca.delphi@gmail.com. Os primeiros 25 que forem mais rápidos a enviarem o e-mail, eu irei envi
-
EXTRAIR DADOS DO CARTÃO DE CIDADÃO
-
Boa noite comunidade, Preciso do vosso aconselhamento e sugestões. Sou um programador "da velha guarda" iniciei como muitos da minha geração em Cobol, RPGII e claro VB, posteriormente por motivos profissionais migrei para o Delphi quando este ia na versão 5 e desenvolvi sobre o mesmo ate á versão 2005. O Delphi contava com uma comunidade muito limitada em Portugal mas estava amplamente instalado em alguns paises europeus e sobretudo no Brasil. Posteriormente desenvolvi alguns "pequenos projetos" em VB, VB.NET e PHP. Atualmente por necessidades especificas tenho um grande projeto em mãos
-
preciso de descomprimir um tbytes em xml O formato vem em gz em java conseguir fazer o pretendido Preciso de fazer em delphi Codigo java: Em delphi onde o fichheiroin é um TByteDynArray retorna o valor que esta na variavel String compressed content:= Converter(ficheiroin); Form1.Memo4.Lines.Add(content); Esta função converte function Converter(P: TByteDynArray): string; var Buffer: AnsiString; begin SetLength(Buffer, Length(P)); System.Move(P[0], Buffer[1], Length(P)); Result := encodestring(Buffer); end;
-
Alguem já fez alguma coisa para conseguir fazer queries/integraçao com o Active Directory a partir do Delphi? Estou a usar a class TLDAPSend dos componentes Synapse. Estou a conseguir fazer o login mas nenuhma query. Alguem tem um exemplo generico de uma query que deveria funcionar? Ou que use outros componentes
-
Bom dia, Tenho um fornecedor que passou de VB para .Net. Antes usava a importação do componente no IDE do Delphi (XE8) mas agora deixou de ser possível e tive de optar pelo instalação do DotNet Runtime Library for Delphi da CrystalNet. Faço a importação das Assemblies sem problemas mas quando executo alguns métodos existentes na assembly importada tenho a seguinte excepção "Não é possível localizar a assemblagem 'Nome da assembly, Version = x,x,x,x, Culture = Neutral, PublicKeyToken = xxxxxxxxxxxx". Alguém me pode ajudar?
-
Boas! Já busquei na internet e aqui no blog, e só encontrei este comentário de 2013: https://www.portugal-a-programar.pt/forums/topic/57734-utilizar-webservices-da-at/?page=108&tab=comments#comment-516188 Mas que usa o certificate store da clever internet suite. Atualmente, com os componentes nativos do Delphi, existe uma forma de carregar o certificado Sem estar instalado no HTTPRIO? Desde já, obrigado!!
-
Boa tarde! Estou pela primeira vez a tentar integrar a API "netfacturação." de forma a poder faturar com uma aplicação desenvolvida em "Delphi". Está disponível toda a documentação neste site https://login.netfacturacao.pt/DocumentacaoAPI.php?s=documents Usei a ferramenta "WSDL Importer" no Delphi mas o código gerado dá erro. Alguém já utilizou esta ferramenta? Alguém pode ajudar e tentar ver qual é o problema e o que estou a fazer mal? Com os melhores cumprimentos, Nuno Lourenço
-
Boa tarde. Desenvolvi um programa simples para misturar ficheiros. O programa está a funcionar bem, mas as labels do form apenas mostram o último ficheiro, não vão mostrando os nomes dos ficheiros à medida que são alterados. O procedimento que trata desse ponto é o este: procedure shuffle; Var FileInfo: TSearchRec; Fich, SNum:String; Num, Erro, i:Integer; f:file; begin Randomize; if FindFirst('*.mp3', faArchive, FileInfo) = 0 then begin Repeat Fich:=FileInfo.Name; Frm_Shuffle_MP3.StrNomeOriginal.Caption:=Fich; {Aqui mostra o nome atual} Val
-
Vou fazer uma coisa que já não vejo há anos aqui no P@P: lançar um debate (ou pelo menos tentar 😐). Há quem diga que Pascal é uma linguagem morta, e alguns dos que apoiam esta frase incluem Delphi na sua opinião. Os maiores users destas linguagens no mundo estão em Portugal e no Brasil. Apesar de haver mais de 200 milhões de pessoas entre os dois países, apenas uma gota de nós programa na linguagem. As linguagens Pascal e Delphi terão futuro a médio e a longo prazo? O que poderá acontecer? Como poderá acontecer? Fica a ideia para um debate saudável. Todos nós aqui sabemos que Pa
-
O recente reacender do tópico sobre o Delphi Starter, que passou a gratuito em 2016, lembrou-me que ainda não tinha aqui partilhado uma "novidade mais actual"... Recentemente a Idera, actual detentora da Embarcadero que faz o desenvolvimento, substituiu o produto Delphi Starter pelo novo Delphi Community Edition (CE). Este é basicamente a edição Delphi Professional (incluindo os módulos mobile), apenas com algumas diferenças: Licença comercial limitada a facturação anual de até 5000€ Código fonte da VCL apenas parcial Face à versão Architect, existem algumas
-
Delphi 10.1 Berlin Starter - Gratuito até (Set/2016) sempre
nunopicado posted a topic in Delphi/Lazarus
Até 9 de Setembro a Embarcadero está a oferecer o Delphi 10.1 Berlin Starter. Basta ir ao site, registar, e fazer o download: https://www.embarcadero.com/br/products/delphi/starter/promotional-download Boa programação... -
Exmos Estou tentando encerrar meu programa em Lazarus por inatividade. Agradeço orientações.
-
procedure TfrmCADEXE.BtnIncluirClick(Sender: TObject); begin pilha := Nil; begin if (pilha = Nil) then begin new(pilha); pilha^.Autor := EdtNome_Autor.Text; pilha^.Nome_da_Obra := EdtNome_Obra.Text; pilha^.QTD_Pg := EdtQtd_Pag.Text; pilha^.CEP_Autor := EdtCEP_Autor.Text; pilha^.proximo := nil; end else begin aux := pilha; while (aux^.proximo <> Nil) do new(novo); novo^.Autor := EdtNome_Autor.Text; novo^.Nome_da_Obra := EdtNome_Obra.Text; novo^.QTD_Pg := EdtQtd_Pag.Text; novo^.CEP_Autor := EdtCEP_Autor.Text;
-
Olá a todos. É minha primeira postagem no fórum. Fiz um esboço de um projeto onde utiliza estrutura de dados (pilha) utilizando ponteiros. Agora vem o problema, gostaria de fazer este mesmo projeto utilizando componentes visual(botões,edit,memo,mais de um form), Não estou conseguindo desenvolver a lógica. Alguém poderia me dar uma luz? Grato. Program project1; USES crt; Type livro = record nome_livro : String; quant_pag : Integer; autor_livro : String; proximo : ^livro; end; Var n_livro, top, pegar_livro : ^livro; opc : Integer; Begin top := nil
-
Boas é o seguinte estou a usar um webservice em modo de testes queria saber como é que envio o batchid , já importei o wsdl. Sei que o batchList é um objecto do tipo array mas nao encontro a propriedade batchID <v1:getBatches> <v1:batchIdList> <v1:batchId>17727028</v1:batchId> </v1:batchIdList> </v1:getBatches> link: https://www.fidelidade.pt/b2b/PT/b2bplatform/servicesb2b/BrokersIntegration/Paginas/getBatches.aspx já depois de ter o header enviado, da me erro de memoria algum c
-
Embarcadero esta a matar o Datasnap e a tentar enviar os utilizadores para RadServer. Vejam o que o Datasnap deveria ser, a facilidade com que se faz aplicações 3 camadas com RestDataware REST FULL o unico produto no mercado Rest FULL na integra, completamente gratuito. Esta deichando MVP de Embarcadero de boca aberta. RestDataware IntensiveDelphi Não percam dia 21 RESTDATAWARE com Gilberto Rocha as 15H https://thuliobittencourt.kpages.online/intensivedelphi
-
Fazer download de ficheiro do tipo mimebondary em Delphi
pessantiago posted a topic in Delphi/Lazarus
boas alguem sabe como posso fazer o download deste tipo de ficheiros em delphi download xml <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> <soapenv:Body> <ns:getFileResponse xmlns:ns="http://ws.allianz.com"> <ns:return> <swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"> <swa:msg><
