Search the Community

Membros 3 Postado Segunda às 16:23 Prezados, Boa tarde Estou mudando de adotable para usar fdtable e fdquery, e estou com um probleminha na hora de EDITAR/SALVAR/EXCLUIR registros, me mostra sempre um erro de sintaxe: Sintaxe incorreta próxima a @errno Alguém já passou por isso?

Olá pessoal. Sou novo no fórum e estou passando por problemas na instalação do Delphi. Após instalar o Delphi no Windows Server 2012 notei que os componentes Datasnap não aparece em Tool Palette Agradeço muito se puderem me ajuda.

Estava tentando instalar Delphi comunity edition, se eu não me engano versão Alexandria 11.3. Porém me retorna este erro na tela de Platform Selection Problem loading data Error on loading data from the server getit-olympus.embarcadero.com: Gateway Time-out

Caríssimos, decidi desenferrujar algumas linguagens nas quais não tive a chance de pegar há muito. Chegou a hora do Delphi / Object Pascal. Ora bem, estou a fazer uma pequena biblioteca que me permite aplicar ANSI escape codes (AECs) no output, e tenho uma situação muito peculiar. De notar, estou a usar o Free Pascal 3.2.2. Indo directo ao problema: writeln( Ansify([BOLD, FG_RED], 'Fatality!') ); writeln( Ansify([ITALIC, FG(69)], 'Color Test, Standard') ); writeln( Ansify([UNDERLINE, BG(100, 50, 9)], 'Color Test, RGB') ); Quando executo este código de teste, a primeira chamada a Ansify funciona sem problemas. Contudo, a segunda chamada, independentemente do array que passo no primeiro argumento, dispara um Access Violation: \x[1;31mFatality!\x[0m An unhandled exception occurred at $00000000004124CA: EAccessViolation: Access violation $00000000004124CA $00000000004243FC $00000000004011AB Nota: forcei o output dos AECs para debugging durante o desevolvimento. Esta é a definição de Ansify: function Ansify(const codes : array of IAnsiCode; const msg : string) : string; begin Result := Codify(codes) + msg + Codify([RESET]); end; Onde: function Codify(const codes : array of IAnsiCode) : string; var code : IAnsiCode; begin Result := '\x['; // Result := ANSI_BEGIN; // TODO: switch when finishing first version for code in codes do begin Result += code.AsString; Result += ANSI_SEPARATOR; end; Delete(Result, Length(Result), 1); Result += ANSI_END; end; A ideia é ter IAnsiCode como uma interface comum a duas classes que implementam AECs, mas que apenas obriga ao mínimo: IAnsiCode = interface['{eeb511e3-0dbe-4fec-a72f-473f8bf8a8de}'] function AsString : string; function AsByte : byte; end; Não estou a usar uma class function construtora que permita gerir automaticamente a libertação de recursos uma vez que posso precisar de qualquer código a qualquer momento por N vezes num programa, pelo que estou a alocar os objectos na inicialização do módulo e a "destruí-los" na finalização: initialization RESET := TAnsiCode.Create(0); BOLD := TAnsiCode.Create(1); FAINT := TAnsiCode.Create(2); // etc... Aparentemente os objectos parecem ser todos destruídos após a primeira chamada a Ansify, tenham sido ou não usados na primeira chamada. A classe TAnsiCode está definida da seguinte forma: TAnsiCode = class(TInterfacedObject, IAnsiCode) private vCode : byte; vString : string; function WithCode(const code : byte) : IAnsiCode; public constructor Create(const code : byte); function AsString : string; function AsByte : byte; end; A minha questão é simples: Por quê Access Violation? Para onde foram os objectos todos? 😄 Cumprimentos.

Olá, Estou a tentar recuperar alguma informação de um programa feito em Delphi. Acontece quando tento ver uma lista ocorre o seguinte erro: "Read beyond end of file". Em modo debug o código anda em torno deste pedaço de código: assignfile(usersession.ftemp_eime,'D:\EIME_DATA\DATA\'+usersession.nome_fich); rewrite(usersession.ftemp_eime); assignfile(usersession.f_eime,'D:\EIME_DATA\equipamentos.xxi'); reset(usersession.f_eime); //..... do work... if not eof(usersession.f_eime) then begin while not eof(usersession.f_eime) do begin read(usersession.f_eime,usersession.eime); usersession.passa:=true; //estado if usersession.eime.estado=4 then usersession.passa:=false; if usersession.passa=true then begin //se está dentro dos parametros, escreve no ficheiro temporario usersession.eime.pos_temp:=(filepos(usersession.f_eime)-1); write(usersession.ftemp_eime,usersession.eime); end; end; // while end; //FileMode :=fmOpenRead+fmShareDenyNone; //..... End Work closefile(usersession.f_eime); usersession.tamfich:=filesize(usersession.ftemp_eime); closefile(usersession.ftemp_eime); Numa situação normal isto iria mostrar uma lista de material numa Grid.

Boa tarde, alguem tem Webservice comunicação Guias na AT em Chilkat ou outro componente para delphi 7 ?

Olá a todos, Estou implementando Push para Android e iOS, sempre que o aplicativo roda no Android ele recebe o token do aparelho, quando vai para o iOS assim que você instala e da a permissão de Push no aparelho, ele traz o token, se eu fechar o APP, ele já não traz mais o token e apresenta a seguinte mensagem: "Push service failed to start nenhum código de autorização válido de “aps-environment” foi encontrado para o aplicativo". Isso só acontece com o iOS e me parece com o D11, pois segundo relatos, o D10.4.2 consegue normal, além disso a mensagem Push não chega no aparelho com iOS, mas chega no Android.

Olá pessoal. Estou a desenvolver uma biblioteca em C++ e, neste momento, dar-me-ia imenso jeito ter uma forma de aceder aos métodos de uma instância de outra classe. Numa classe (vamos chamá-la de FooMgr) tenho um map que me permite aceder a instâncias de outra classe (vamos assumir que se chama foo) através do seu nome. map<string, Foo> foolist; FooMgr é, portanto, um gestor de instâncias de Foo onde posso dar um nome arbitrário a cada uma dessas instâncias. De momento preciso de fazer algo deste género para aceder aos métodos de cada instância: FooMgr foo(); // etc... foo.getInstance("batatas").coisas(); foo.getInstance("batatas").cenas(); foo.getInstance("batatas").factos(); A minha ideia é definir a instância actual e, a partir daí, aceder directamente aos seus métodos sem precisar de recorrer a este "proxy" (getInstance) FooMgr foo(); // etc... foo.setCurrent("batatas"); foo.coisas(); foo.cenas(); foo.factos(); Sei que existe forma de fazer isto em Delphi, mas desconheço se há algum mecanismo para tal em C++. As minhas pesquisas deram num beco sem saída (talvez não esteja a usar as keywords certas nas pesquisas, idk). Conhecem alguma forma de fazer isto em C++, ou de o simular de uma forma um tanto-quanto elegante? Cumprimentos.

Boa tarde, Alguém me pode disponibilizar o código em Delphi6 ou Java para comunicar as séries à AT? Obrigada

Boa tarde, Estou migrando um projeto Delphi 7 para XE, e o mesmo tem um TDataModule com um TSQLConnection que de uma hora para outra não aparece mais na propriedade "SQLConnection" dos TSQLQuery nos formulários. Se eu colocar "DM.Connection" manualmente no parâmetro "SQLConnection" do objeto TSQLQuery funciona perfeitamente, más ele não aparece como opção se eu clicar no combo. Em outros projetos continuam aparecendo normal, só neste projeto específico que não aparece, o combo fica vazio, parece que corrompeu algo. Alguém saberia me dizer como posso fazer para recuperar este link no projeto? Desde já, agradeço.

Amigos, desenvolvi um aplicativo e necessito que este possa receber notificações push através do Firebase Cloud Messaging, segui todos os passos encontrados em pesquisas na web, hoje já consigo receber notificações no Android, porém no iOS apesar de compilar sem erros, resgatar o TOKEN e do Firebase retornar mensagem positiva quando uso este TOKEN para testes de envio, a notificação nunca chega. Alguém conhece um bom passo a passo que possa ajudar-me nessa empreitada?

Boa tarde a todos 🙂 Recentemente começamos a migrar as nossas apps (Android / iOS) do Delphi Rio 10.3.3 para a mais recente Delphi Sydney 10.4.2. Em android correu tudo bem, basicamente foi compilar e ficou feita a migração. No iOS, estou com bastantes problemas para conseguir que as notificações push funcionem, sendo que na versão anterior estava tudo a funcionar. Uma das novidades na versão 10.4.2 é, precisamente, o suporte para Firebase Push Notification para iOS. Segui os passos apresentados neste webinar https://blogs.embarcadero.com/pt/webinar-amanha-mao-na-massa-com-rad-studio-10-4-2/ (no video, começa no minuto 1:08:30), atualizei o mac para o mais Big Sur (vs 11.4), instalei a partir do GetIt Package Manager o Firebase SDK for iOS 6.28. Depois de configurar nas opções do projeto a opção "Framework search path" com o caminho para as pastas FirebaseAnalytics e FirebaseMessaging e colocar a opção -ObjC em "Options passed to de LD linker" estou a receber o seguinte erro: [DCC Error] E2597 ld: file not found: PromisesObjC [DCC Fatal Error] F2588 Linker error code: 1 ($00000001) Descarreguei o exemplo apresentado no webinar https://github.com/flrizzato/WEBINARS/tree/master/10.4.2-HandsOn e tenho exatamente o mesmo erro... Talvez esteja a faltar alguma configuração no delphi ou no mac (não sei se é necessário instalar alguma coisa).. Alguém tem ideia do que será? Agradeço qualquer ajuda, se não houver ajudas, pelo menos desabafei 😅

Boa tarde, Tenho uma aplicação VCL Forms desenvolvida com Rad Studio 2007 utilizando .NET 2.0. Nesta aplicação utiliza o RAVE Reports versão 7.5.2 para a geração dos relatórios. No geral tudo tem funcionado muito bem. Porém neste momento tenho uma situação onde preciso inserir alguns eventos no relatório, para definir no momento da impressão se uma banda deve ou não ser visível no relatório, dependendo do valor de um campo específico. O que acontece é que ao inserir o código no evento ele não é executado. Para teste fiz um relatório novo e criei apenas dois Texts na tela com um evento OnBeforPrint na Page1 colocando a propriedade Visible do Text2 para False. Se executo esse relatório numa aplicação Win32 ele é executado perfeitamente. Se executo numa aplicação .NET o evento não é executado, como se não existisse. Alguém já passou por essa situação e sabe me dizer o que é necessário para executar eventos em .NET, ou mesmo se isso não é possível? Obrigado! Claudiney

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.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Actions, Vcl.ActnList, Vcl.Menus, System.ImageList, Vcl.ImgList, cxImageList, cxGraphics, UdmLista, Vcl.ComCtrls, Vcl.ToolWin; type TFormPrincipal = class(TForm) btnAplicar: TButton; btnCarregarTema: TButton; btnCriarMenus: TButton; pgnModulos: TPageControl; ToolBarOne: TToolBar; procedure btnAplicarClick(Sender: TObject); procedure btnCarregarTemaClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnCriarMenusClick(Sender: TObject); private { Private declarations } FModuloLista: TdmLista; public { Public declarations } end; var FormPrincipal: TFormPrincipal; implementation Uses Vcl.Styles, Vcl.Themes; {$R *.dfm} procedure TFormPrincipal.btnAplicarClick(Sender: TObject); begin if btnAplicar.Caption = 'Aplicar CARBON' then begin btnAplicar.Caption := 'Aplicar WINDOWS'; TStyleManager.TrySetStyle('Carbon'); end else begin btnAplicar.Caption := 'Aplicar CARBON'; TStyleManager.TrySetStyle('Windows'); end; end; procedure TFormPrincipal.btnCarregarTemaClick(Sender: TObject); begin TStyleManager.LoadFromFile('C:\Users\Jozimar\Desktop\TST\Tema\Carbon.vsf'); end; procedure TFormPrincipal.btnCriarMenusClick(Sender: TObject); var lMenu: TMainMenu; lItem: TMenuItem; lIndex: iNTEGER; TabSheet: TTabSheet; begin TabSheet := TTabSheet.Create(pgnModulos); TabSheet.PageControl := pgnModulos; TabSheet.Caption := ' - Menu - '; ToolBarOne.Parent := TabSheet; lMenu := TMainMenu.Create(ToolBarOne); lMenu.Images := FModuloLista.ImageList1; lItem := TMenuItem.Create(lMenu); lItem.Caption := ' -- SubMenu -- '; lMenu.Items.Add(lItem); for lIndex := 0 to FModuloLista.ActionList1.ActionCount-1 do begin lItem := TMenuItem.Create(lMenu); lItem.Action := FModuloLista.ActionList1[lIndex]; lMenu.Items[0].Add(lItem); end; ToolBarOne.Menu := lMenu; end; procedure TFormPrincipal.FormCreate(Sender: TObject); begin FModuloLista := TdmLista.Create(Self); end; end. ------------------------------------------------------------------------------------------------------- object FormPrincipal: TFormPrincipal Left = 0 Top = 0 Caption = 'Principal' ClientHeight = 428 ClientWidth = 773 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object btnAplicar: TButton Left = 296 Top = 273 Width = 241 Height = 25 Caption = 'Aplicar CARBON' TabOrder = 0 OnClick = btnAplicarClick end object btnCarregarTema: TButton Left = 177 Top = 273 Width = 113 Height = 25 Caption = 'Carregar Tema' TabOrder = 1 OnClick = btnCarregarTemaClick end object btnCriarMenus: TButton Left = 96 Top = 273 Width = 75 Height = 25 Caption = 'Criar MENU' TabOrder = 2 OnClick = btnCriarMenusClick end object pgnModulos: TPageControl Left = 0 Top = 0 Width = 773 Height = 97 Align = alTop TabOrder = 3 end object ToolBarOne: TToolBar Left = 0 Top = 97 Width = 773 Height = 29 Caption = 'ToolBarOne' TabOrder = 4 Transparent = False StyleElements = [] Wrapable = False end end ------------------------------------------------------------------------------------------------------- unit UdmLista; interface uses System.SysUtils, System.Classes, System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, System.Actions, Vcl.ActnList, Vcl.Menus; type TdmLista = class(TDataModule) ActionList1: TActionList; Action1: TAction; Action2: TAction; Action3: TAction; Action4: TAction; ImageList1: TImageList; MainMenuOne: TMainMenu; Novidades1: TMenuItem; Action11: TMenuItem; Action21: TMenuItem; Action31: TMenuItem; Action41: TMenuItem; procedure Action1Execute(Sender: TObject); procedure Action2Execute(Sender: TObject); procedure Action3Execute(Sender: TObject); procedure Action4Execute(Sender: TObject); private { Private declarations } public { Public declarations } end; var dmLista: TdmLista; implementation Uses Vcl.Dialogs; {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} procedure TdmLista.Action1Execute(Sender: TObject); begin ShowMessage('1111'); end; procedure TdmLista.Action2Execute(Sender: TObject); begin ShowMessage('2222'); end; procedure TdmLista.Action3Execute(Sender: TObject); begin ShowMessage('3333'); end; procedure TdmLista.Action4Execute(Sender: TObject); begin ShowMessage('4444'); end; end. ------------------------------------------------------------------------------------------------------- object dmLista: TdmLista OldCreateOrder = False Height = 240 Width = 442 object ActionList1: TActionList Images = ImageList1 Left = 248 Top = 72 object Action1: TAction Category = 'Dados Unidos' Caption = 'Action1' ImageIndex = 0 OnExecute = Action1Execute end object Action2: TAction Category = 'Dados Unidos' Caption = 'Action2' ImageIndex = 1 OnExecute = Action2Execute end object Action3: TAction Category = 'Dados Unidos' Caption = 'Action3' ImageIndex = 2 OnExecute = Action3Execute end object Action4: TAction Category = 'Dados Unidos' Caption = 'Action4' ImageIndex = 3 OnExecute = Action4Execute end end object ImageList1: TImageList Left = 176 Top = 72 Bitmap = { 494C010104000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000002000000001002000000000000020 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000010102021C1C384520225E791C2265801F2767801C1F607D23244D600B0B 1216000000000000000000000000000000000000000000000000000000000000 00000000000005070B0E5E84BCEA5077B0FF315187FF1A3A65FE02080E2E0000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000010103050E170102070B000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000001010 1B204546A8D64659D8FF7294F5FF83A8FFFF82A7FEFF7B9FFAFF556EE2FF3D43 BAEB1F1F35400000000000000000000000000000000000000000000000000000 00000000000000000000000000005581B8FF325488FF1A3A65FF030B14440000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000407151F15265E8B0C132637000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000001E1E39463E48 B8E05C78EFFF6989F8FF617EF1FF566DE6FF5368E2FF5D78EDFF6989F8FF6381 F4FF4858D7FC282A657F00000000000000000000000000000000000000000000 0000000000000000000000000000426693D334588CFF1A3A65FF030A133D0000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000010103050C111B2D7EA53551CEFA1C2C668B0A1124340102 0508000000000000000000000000000000000000000000000000000000000000 0000000000000B1F0E4118411F8A000000000000000000000000000000000000 000000000000000000000000000000000000000000000E0E171C3337BEF9536B F0FF556EF2FF4458E2FF2F2FB1F631315B6F2525414E3F3F8BB2343BC5FC5069 EEFF5670F4FF4250D6FC1B1B2E37000000000000000000000000000000000000 00000000000000000000000000002E486897365D90FF1A3861F50716287B0815 267003090F2B0000000000000000000000000000000000000000000000000000 000000000101060A172215237EBA405FECFF5578FFFF314AC2EF20325F800E17 2F43010104070000000000000000000000000000000000000000000000000000 000000000000409A5BFF2F803BFF000000000000000000000000000000000000 000000000000000000000000000000000000000000002729718E4051E8FF5D75 F2FF576EF1FF4356ECFF3942D1FA1F20536B00000000000000001515252D3136 97BC4357EAFF4458ECFF353AB9EC0C0C14180000000000000000000000000000 00000000000008101B3C1629469E42699CF3385F93FF244473FF2B4C7FFF3151 86FF35558BFE2336579200000000000000000000000000000000000000000406 0E150E17416021359CCA3C5CEAFF4768F9FF5174F8FF587CF5FF3852C9F32032 7CAA1622435C080D1C280101020400000000000000000000000000000000091D 0B403E9D5EFF70D1A3FF2F803BFF000000000000000000000000000000000000 000000000000000000000000000000000000000000003A3FBAE03A49EEFF3E4D DFFF556BE6FF4556EFFF3A4AEDFF2D34D0FE2B2B4D5D00000000000000001515 252D2C31C5FC3A4AECFF2D37D9FF23234D600000000000000000000000000000 000018284278385991FC3D5E99FF4C75AFFF386295FF243D64C219253B551821 354B344975A15374B9F9080B111700000000000000000000000002030A10131F 6DA02B44D2FF4162F2FF3C5BF3FF3856F1FF3A58F1FF4A6CF4FF5C80F6FF4565 E3FF1B2E9DDF1A2A597E0910273B010104060000000000000000000000003B9C 5BFF6DD4A6FF77D6ABFF2F803BFF358543FF3B8A4BFF409053FF46955AFF4C9A 61FF509E67FF55A16CFF58A471FF00000000000000002E35D8FC2E39EBFF3035 BBE12C2E82A23B48E1FF303AEAFF2C36E8FF282DD3FE21235A6E000000000000 0000404191B22C35E4FF2D37EAFF1719647D0000000000000000000000002635 54745173B7FF46629DD9243351713C5C89C5386094FF1120367C000000000000 000000000000384E7BA22533506A01010202000000000304162316258FC5304B DDFF3C5BEEFF3754ECFF304CEBFF2E49EBFF2E48EBFF324DECFF3E5EECFF5072 F1FF4F71EAFF2C43BCEC14226698060B1F3000000000071C08403A9D5CFF63D0 9EFF6DD4A6FF77D6ABFF74D3A7FF7FD6ADFF88D7B2FF93D9B8FF9CDBBDFFA5DD C2FFADDFC6FF9BCFB3FF58A471FF00000000000000002329DEFF242AE7FF272A 8DA7000000002D3190AE272FE2FF242BE7FF242AE8FF262CD8FE2D2F535F0000 00002627444E252BDEFF252AE8FF11146A800000000000000000000000004C69 A6DB4C6AA7DD090C131900000000263C5782375F92FF0E1C306E000000000000 0000644A30989E7147FF95673DFF724C2BCC000000000E17709F2A43E4FF2F49 E4FF2C45E4FF2740E4FF273FE4FF273FE4FF273FE4FF273FE4FF273FE4FF304B E6FF4667E9FF5072ECFF2237C4FF0910446E00000000389B5AFF5ED09DFF65D2 A1FF6DD4A6FF77D6ABFF80D9B1FF8CDCB8FF96DEBEFFA1E1C5FFABE4CBFFB5E7 D1FFBEE9D6FFA4D4BBFF58A471FF00000000000000001F24E0FF1C1FE6FF2B30 9EB5000000000C0C15182C3194AD2127E1FE1C1FE6FF1C1FE4FF2429DAFE2124 5D6A3437636F2025E1FF1B1FE7FF11156D80000000000506090C192235464D6A A8DE0D111B24000000000000000016213454365D90FF0F1C306D000000000000 0000B3895CFFE2BB89FFD4A568FFB07E48FF00011E421B2CB4E92C45E1FF2439 DEFF2136DDFF2136DDFF2136DDFF2136DDFF2136DDFF2136DDFF2136DDFF2236 DDFF263BDDFF405FE4FF3C5BE2FF0E1771A6000000003C7346C08BE0B9FF65D2 A1FF6DD4A6FF77D6ABFF80D9B1FF8CDCB8FF96DEBEFFA1E1C5FFABE4CBFFB5E7 D1FFBEE9D6FFA4D4BBFF58A471FF00000000000000002C32DDF91A1AE5FF3137 D3ED0000000000000000000000002E3599AE171BE1FF1617E2FF1617E4FF272D DEFC3D48D7F61719E3FF171AE4FF1F246B7900000000835F3DCC9B6D43FF9364 3BFF5539229D000000000000000001010203315086FD11213880000000000000 0000BD9466FFF2D7B4FFE6C295FFBE9363FF02034B7D2339C9FE4264DFFF253C D9FF1A2CD6FF1B2DD6FF1E30D7FF2338D8FF263DD9FF2237D8FF1D2FD6FF1A2C D6FF1A2BD6FF2A43DAFF3A58DFFF101B7FB500000000000000001B6F22FF8BDF B9FF6DD4A6FF77D6ABFF80D9B1FF8CDCB8FF94DDBDFF99DFC0FF99DEC0FF95DC BCFF8CD8B6FF85C9A7FF58A471FF00000000000000002C33B1C5262AE7FF1F23 E3FF3B4296A204040707000000000C0D161830389DAF1C22E3FF1414E2FF1516 E2FF181CE2FF1B1EE4FF212BE4FF1E21404500000000CDA679FFDDB37EFFD09E 5EFF95663CFF0000000000000000000000000F182749142945A6000000000000 00009D7D58CCDEBF9AFFD6B38AFFAB8760E601013D61273CC0F7698DE8FF314A D9FF1422D2FF1624D2FF263DD5FF4363DEFF5E81E4FF5072E1FF314BD8FF1929 D3FF1320D2FF1F33D4FF2A42D7FF0B1271A40000000000000000000000003974 47C083DDB4FF77D6ABFF2F803BFF1A42217E1D44257E2047297E234A2D7E264C 307E284E337E2A50367F2C52398000000000000000002A316C731E26E6FF2F38 E8FF161AE4FF3B4498A2000000000000000000000000323B95A0171BE5FF1414 E2FF171AE4FF2E38E8FF4D58CBD90404060700000000DAB992FFEED1AAFFE1BB 8AFF9F7247FF00000000000000007C5A3AC09D6F45FF96673DFF8C5D35FA2B1C 104F000000000000000000000000000000000000121D1B2AA0D78DAEEFFF5E81 E2FF273FD3FF1E31D1FF263ED3FF3E5DC7F66586BEE5A5C2F2FF7498E8FF3C5A D8FF2237D1FF1522CEFF1625CBFF0407486E0000000000000000000000000000 000024762DFF84DDB4FF2F803BFF000000000000000000000000000000000000 0000000000000000000000000000000000000000000008080E0E3D49B8C33643 ECFF4554EBFF2D37E9FF353EDCED2C33A9B6262E9CA72F38D0E11C23E7FF2F39 E8FF404FECFF3946CFDE0F101B1C0000000000000000BF9F7BE6DCBC95FFD2AE 84FF876442CC0000000000000000CAA375FEDCB37DFFD2A163FFC7914AFF4831 1D7F00000000000000000000000000000000000000000609527A4B68D3FF96B5 F0FF7094E6FF314CD4FF1624C7FF070B5F8E040615274D64B9E391B1EDFF84A7 EBFF486ADBFF1522C9FF080C99E10101111F0000000000000000000000000000 000000000000367648C02F803BFF000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000003E4A B9C1313EEDFF6D87F1FF637CF0FF4253EBFF3743E9FF4B5DECFF728EF2FF5369 EFFF3C4DEEF91F223D3F00000000000000000000000000000000000000000000 0000000000000000000000000000D6B38AFFEACA9FFFDFB784FFD4A568FF4D36 21800000000000000000000000000000000000000000000002040202639D2236 BBFF2841C7FF101AB8FF03035EA300000107000000000000263D0C14A4F32439 BFFF131FBCFF080C91D700000612000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000090A 1010282F6B6D3A47BDC55367EFF95C75F6FF5E77F5FF5A72F3FC4E60D8E02C35 888C111320200000000000000000000000000000000000000000000000000000 0000000000000000000000000000D9BA97F8F6DDBDFFEDCEA6FFE2BC8BFF4E39 2479000000000000000000000000000000000000000000000000000000000101 1E300202355301011F31000000000000000000000000000000000000090E0101 253B0101263D0000090F00000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000937552BEC0986AFFBA9163FFAF8559FA3528 1A4E000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000424D3E000000000000003E000000 2800000040000000200000000100010000000000000100000000000000000000 000000000000000000000000FFFFFF0000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000} end object MainMenuOne: TMainMenu Images = ImageList1 Left = 104 Top = 72 object Novidades1: TMenuItem Caption = 'Novidades' object Action11: TMenuItem Action = Action1 SubMenuImages = ImageList1 end object Action21: TMenuItem Action = Action2 SubMenuImages = ImageList1 end object Action31: TMenuItem Action = Action3 SubMenuImages = ImageList1 end object Action41: TMenuItem Action = Action4 SubMenuImages = ImageList1 end end end end O que pode estar causando tal erro ?

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

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;cham_telefone:string;cham_numero :String;cham_emai:string; cham_marca :string; cham_modelo :String;cham_equip :String;cham_descricao :String; cham_data :String; cham_codigo :String; status :String):Integer; // function TServerMethods1.UpdateChamado(cham_id:integer; cham_cliente :string; cham_nomecli :String;cham_endereco:String;cham_bairro:string;cham_cep:string;cham_telefone:string;cham_numero :String;cham_emai:string; cham_marca :string; cham_modelo :String;cham_equip :String;cham_descricao :String; cham_data :String; cham_codigo :String; status :String): Integer; begin Result :=-1; FDQuery2.Close; FDQuery2.sql.Clear; FDQuery2.sql.Add('UPDATE CHAMADOS SET status =:status where cham_id =:cham_id'); FDQuery2.ParamByName('cham_id').Asinteger :=cham_id; FDQuery2.ParamByName('status').AsString :='FECHADO'; FDQuery2.ExecSQL; FDQuery2.Close; end; // No cliente (Botão ATUALIZA CHAMADO) procedure TForm1.SpeedButton41Click(Sender: TObject); var cham_id:integer; cham_cliente,cham_nomecli,cham_endereco,cham_bairro,cham_cep,cham_telefone,cham_numero,cham_email,cham_marca,cham_modelo,cham_equip,cham_descricao,cham_data,cham_codigo,status:string; Result :Integer; begin ClientREST :=TServerMethods1Client.Create(ClientModule1.DSRestConnection1); Result :=ClientREST.UpdateChamado(cham_id,cham_cliente,cham_nomecli,cham_endereco,cham_bairro,cham_cep,cham_telefone,cham_numero,cham_email,cham_marca,cham_modelo,cham_equip,cham_descricao,cham_data,cham_codigo,status); if Result > -1 then begin ShowMessage('Chamado Atualizado!') end else ShowMessage('Chamado NÃO Atualizado!'); end; else ShowMessage('Chamado NÃO Atualizado!'); end;

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 enviar no próximo fim-de-semana um link para participar do evento de borla! --- Gostaria da vossa atenção também para responder ao inquérito a seguir sobre uma pesquisa que estou a fazer sobre a comunidade Delphi cá em Portugal. https://forms.gle/GmFDWKjTxJFu8r2G7 Muito obrigado pela sua atenção! 🙂 George De Luca www.deluca.eti.br

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 com base na migração de uma aplicação industrial que corre em DOS e feita em CLIPPER, provavelmente poucos de vos ou nenhuns se recordarão desta linguagem. Concluindo, pensei em retomar o desenvolvimento Delphi mas fiquei surpreendido ao constatar que a comunidade existente praticamente desapareceu ou parou no tempo. Continuo a encontrar alguns desenvolvimentos e forums mas basicamente está tudo parado no Delphi 7 e sem atividade. Vejo que o que está na "moda" atualmente é o C#, mas não sei se justifica entrar numa nova linguagem, que me aconselham? Abraço comuniadade

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;

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&amp;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(copy(Fich,1,4), Num, Erro); if (Erro=0) and (Fich[5]='_') then begin Delete(Fich,1,5); end; Num:=Random(9999)+1; Str(Num,SNum); For i:=length(SNum) to 3 do SNum:='0'+SNum; Fich:=SNum+'_'+Fich; AssignFile(f,FileInfo.Name); Rename(f,Fich); Frm_Shuffle_MP3.StrNovoNome.Caption:=Fich; {Aqui mostra o nome novo} until FindNext(FileInfo)<>0; FindClose(FileInfo); end; end; experimentei colocar um sleep para o processo ser mais lento e verificar se as labels realmente alteravam ou não e as labels ficam em branco até ao último ficheiro. Alguém sabe a razão deste comportamento? Obrigado

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 Pascal e Delphi são potentes - Delphi então é das linguagens mais potentes da actualidade. Estando isso definido à partida, deixo o debate lançado 🙂 Cumprimentos!

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 diferenças (tal como existem na versão Professional), sendo que a mais sonante é a ausência de compilador para Linux. A Idera prometeu abrir mais o Delphi à comunidade, e esta excelente notícia parece confirmar isso, ainda que possam ainda fazer melhor. Feature Matrix: https://www.embarcadero.com/features/feature-matrix Download do produto: https://www.embarcadero.com/products/delphi/starter/free-download