Search the Community
Showing results for tags 'delphi'.
-
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
-
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
-
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... -
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
-
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><
