Search the Community

Bom dia. Alguem sabería me dizer o indicar se existe alguma function/class/component para Delphi relacionado com o SAFT-PT que realize o calculo de hash ?

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 😅

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?

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;

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(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

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; novo^.proximo := Nil; aux^.proximo := novo; end; end; ListBox1.Items.Add(pilha^.Autor + ' - ' + pilha^.Nome_da_Obra + ' - ' + pilha^.QTD_Pg + ' - ' + pilha^.CEP_Autor); EdtNome_Autor.Clear; EdtNome_Obra.Clear; EdtQtd_Pag.Clear; EdtCEP_Autor.Clear; end; procedure TfrmCADEXE.BtnRetirarClick(Sender: TObject); begin if (pilha = nil) then begin ShowMessage('Sem Livros para Retirar'); end; if (pilha <> nil) then begin aux := pilha; While(aux^.proximo <> nil) do begin penultimo := aux; aux := aux^.proximo; end; penultimo^.proximo := nil; // O erro é apontado aqui.//Não está excluindo no topo como gostaria. Dispose(aux); end; end; Estou tentando implementar um projeto de empilhar livros. Não esta desempilhando. Help - me.

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; WHILE opc <> 3 DO begin writeln('---------MENU---------'); writeln('|1 - Inserir livro. |'); writeln('|2 - Pegar livro. |'); writeln('|3 - Sair |'); writeln('----------------------'); writeln('Digite a opção: '); readln(opc); writeln; CASE opc OF 1 : begin new(n_livro); writeln('----CADASTRAR LIVROS----'); writeln('Nome do livro: '); readln(n_livro^.nome_livro); writeln('Quantidade de páginas: '); readln(n_livro^.quant_pag); writeln('Nome do autor: '); readln(n_livro^.autor_livro); n_livro^.proximo := top; top := n_livro; end; 2 : begin IF top = nil THEN begin writeln('Acabou os livros.'); readln; end ELSE begin writeln('----LIVRO RETIRADO----'); writeln('Nome do livro: ', top^.nome_livro); writeln('Quantidade de páginas: ', top^.quant_pag); writeln('Autor: ', top^.autor_livro); pegar_livro := top; top := top^.proximo; dispose(pegar_livro); readln; end; end; 3 : opc := 3; ELSE begin writeln('Opção inválida.'); readln; end; end; clrscr; end; End.

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 consegue dar uma ajuda.. obrigado var lService: BrokerIntegrationSoap; // pedido Lpedido: getbatches; begi HTTPRIO2.HTTPWebNode.UseUTF8InHeader:=True ; lService := GetBrokerIntegrationSoap(False, '', HTTPRIO2); Lpedido := getBatches.Create; Lpedido.batchIdList.batchId[1]:=337433239; lService.getBatches(Lpedido); end; PAS da importação ******************************************************************** // unit BrokerIntegration; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_UNQL = $0008; IS_REF = $0080; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:anyType - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:date - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:int - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:base64Binary - "http://www.w3.org/2001/XMLSchema"[Gbl] getBatches = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } searchBatchesResponse = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } getBatchesResponse = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } BatchIdListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } ArrayOfApplicationalUser = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfApplicationalUserSystem = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfSystemUser = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfSystemUserSystem = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } OperationResultType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } operationResult = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblElm] } ErrorNativeEntryType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } ErrorType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } searchBatches = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } AxisValues2 = class; { "urn:/microsoft/multichannelframework/"[Hdr][GblCplx] } AxisValues = class; { "urn:/microsoft/multichannelframework/"[Hdr][GblElm] } BatchInfoType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchDataListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchDataType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } {$SCOPEDENUMS ON} { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblSmpl] } DeliveredType = (YES, NO); { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblSmpl] } BatchDataFormatType = (CSV, XML); {$SCOPEDENUMS OFF} // ************************************************************************ // // XML : getBatches, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // getBatches = class(TRemotable) private FbatchIdList: BatchIdListType; public constructor Create; override; destructor Destroy; override; published property batchIdList: BatchIdListType read FbatchIdList write FbatchIdList; end; // ************************************************************************ // // XML : searchBatchesResponse, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // searchBatchesResponse = class(TRemotable) private FoperationResult: operationResult; FbatchList: BatchListType; FbatchList_Specified: boolean; procedure SetbatchList(Index: Integer; const ABatchListType: BatchListType); function batchList_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property operationResult: operationResult Index (IS_REF) read FoperationResult write FoperationResult; property batchList: BatchListType Index (IS_OPTN) read FbatchList write SetbatchList stored batchList_Specified; end; // ************************************************************************ // // XML : getBatchesResponse, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // getBatchesResponse = class(TRemotable) private FoperationResult: operationResult; FbatchDataList: BatchDataListType; FbatchDataList_Specified: boolean; procedure SetbatchDataList(Index: Integer; const ABatchDataListType: BatchDataListType); function batchDataList_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property operationResult: operationResult Index (IS_REF) read FoperationResult write FoperationResult; property batchDataList: BatchDataListType Index (IS_OPTN) read FbatchDataList write SetbatchDataList stored batchDataList_Specified; end; Array_Of_ErrorNativeEntryType = array of ErrorNativeEntryType; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblUbnd] } Array_Of_BatchDataType = array of BatchDataType; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblUbnd] } Array_Of_BatchInfoType = array of BatchInfoType; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblUbnd] } Array_Of_long = array of Int64; { "http://www.w3.org/2001/XMLSchema"[GblUbnd] } // ************************************************************************ // // XML : BatchIdListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchIdListType = class(TRemotable) private FbatchId: Array_Of_long; public function GetInt64Array(Index: Integer): Int64; procedure SetInt64Array(Index: Integer; const Item: Int64); function GetInt64ArrayLength: Integer; procedure SetInt64ArrayLength(Len: Integer); property Int64Array[Index: Integer]: Int64 read GetInt64Array write SetInt64Array; default; property Len: Integer read GetInt64ArrayLength write SetInt64ArrayLength; published property batchId: Array_Of_long Index (IS_UNBD) read FbatchId write FbatchId; end; Array_Of_string = array of string; { "http://www.w3.org/2001/XMLSchema"[GblUbnd] } // ************************************************************************ // // XML : ArrayOfApplicationalUser, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfApplicationalUser = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfApplicationalUserSystem, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfApplicationalUserSystem = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfSystemUser, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfSystemUser = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfSystemUserSystem, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfSystemUserSystem = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : OperationResultType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // OperationResultType = class(TRemotable) private Fsucceeded: Boolean; Ferror: ErrorType; Ferror_Specified: boolean; procedure Seterror(Index: Integer; const AErrorType: ErrorType); function error_Specified(Index: Integer): boolean; public destructor Destroy; override; published property succeeded: Boolean read Fsucceeded write Fsucceeded; property error: ErrorType Index (IS_OPTN) read Ferror write Seterror stored error_Specified; end; // ************************************************************************ // // XML : operationResult, global, <element> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // operationResult = class(OperationResultType) private published end; // ************************************************************************ // // XML : ErrorNativeEntryType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // ErrorNativeEntryType = class(TRemotable) private Fcode: string; Fmessage_: string; Fdetail: Variant; Fdetail_Specified: boolean; Fsource: string; Fsource_Specified: boolean; procedure Setdetail(Index: Integer; const AVariant: Variant); function detail_Specified(Index: Integer): boolean; procedure Setsource(Index: Integer; const Astring: string); function source_Specified(Index: Integer): boolean; published property code: string read Fcode write Fcode; property message_: string read Fmessage_ write Fmessage_; property detail: Variant Index (IS_OPTN) read Fdetail write Setdetail stored detail_Specified; property source: string Index (IS_OPTN) read Fsource write Setsource stored source_Specified; end; // ************************************************************************ // // XML : ErrorType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // ErrorType = class(TRemotable) private Fcode: string; Fmessage_: string; Fdetail: Variant; Fdetail_Specified: boolean; Fsource: string; Fsource_Specified: boolean; Fnative: Array_Of_ErrorNativeEntryType; Fnative_Specified: boolean; procedure Setdetail(Index: Integer; const AVariant: Variant); function detail_Specified(Index: Integer): boolean; procedure Setsource(Index: Integer; const Astring: string); function source_Specified(Index: Integer): boolean; procedure Setnative(Index: Integer; const AArray_Of_ErrorNativeEntryType: Array_Of_ErrorNativeEntryType); function native_Specified(Index: Integer): boolean; public destructor Destroy; override; published property code: string read Fcode write Fcode; property message_: string read Fmessage_ write Fmessage_; property detail: Variant Index (IS_OPTN) read Fdetail write Setdetail stored detail_Specified; property source: string Index (IS_OPTN) read Fsource write Setsource stored source_Specified; property native: Array_Of_ErrorNativeEntryType Index (IS_OPTN or IS_UNBD) read Fnative write Setnative stored native_Specified; end; // ************************************************************************ // // XML : searchBatches, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // searchBatches = class(TRemotable) private FfromDate: TXSDate; FtoDate: TXSDate; Ftype_: string; Ftype__Specified: boolean; Fdelivered: DeliveredType; Fdelivered_Specified: boolean; procedure Settype_(Index: Integer; const Astring: string); function type__Specified(Index: Integer): boolean; procedure Setdelivered(Index: Integer; const ADeliveredType: DeliveredType); function delivered_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property fromDate: TXSDate read FfromDate write FfromDate; property toDate: TXSDate read FtoDate write FtoDate; property type_: string Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified; property delivered: DeliveredType Index (IS_OPTN) read Fdelivered write Setdelivered stored delivered_Specified; end; // ************************************************************************ // // XML : AxisValues, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // Info : Header // ************************************************************************ // AxisValues2 = class(TSOAPHeader) private FUser: string; FSolution: string; FSolutionUser: string; FSolutionUser_Specified: boolean; FBusinessTarget: string; FBusinessTarget_Specified: boolean; FSaF: string; FSaF_Specified: boolean; FSolutionSession: string; FSolutionSession_Specified: boolean; FDelegation: string; FDelegation_Specified: boolean; FCommercialChannel: string; FCommercialChannel_Specified: boolean; FCommunicationsProtocol: string; FCommunicationsProtocol_Specified: boolean; FApplicationalUser: ArrayOfApplicationalUser; FApplicationalUser_Specified: boolean; FApplicationalUserSystem: ArrayOfApplicationalUserSystem; FApplicationalUserSystem_Specified: boolean; FSystemUser: ArrayOfSystemUser; FSystemUser_Specified: boolean; FSystemUserSystem: ArrayOfSystemUserSystem; FSystemUserSystem_Specified: boolean; FProxy: Integer; procedure SetSolutionUser(Index: Integer; const Astring: string); function SolutionUser_Specified(Index: Integer): boolean; procedure SetBusinessTarget(Index: Integer; const Astring: string); function BusinessTarget_Specified(Index: Integer): boolean; procedure SetSaF(Index: Integer; const Astring: string); function SaF_Specified(Index: Integer): boolean; procedure SetSolutionSession(Index: Integer; const Astring: string); function SolutionSession_Specified(Index: Integer): boolean; procedure SetDelegation(Index: Integer; const Astring: string); function Delegation_Specified(Index: Integer): boolean; procedure SetCommercialChannel(Index: Integer; const Astring: string); function CommercialChannel_Specified(Index: Integer): boolean; procedure SetCommunicationsProtocol(Index: Integer; const Astring: string); function CommunicationsProtocol_Specified(Index: Integer): boolean; procedure SetApplicationalUser(Index: Integer; const AArrayOfApplicationalUser: ArrayOfApplicationalUser); function ApplicationalUser_Specified(Index: Integer): boolean; procedure SetApplicationalUserSystem(Index: Integer; const AArrayOfApplicationalUserSystem: ArrayOfApplicationalUserSystem); function ApplicationalUserSystem_Specified(Index: Integer): boolean; procedure SetSystemUser(Index: Integer; const AArrayOfSystemUser: ArrayOfSystemUser); function SystemUser_Specified(Index: Integer): boolean; procedure SetSystemUserSystem(Index: Integer; const AArrayOfSystemUserSystem: ArrayOfSystemUserSystem); function SystemUserSystem_Specified(Index: Integer): boolean; public destructor Destroy; override; published property User: string Index (IS_UNQL) read FUser write FUser; property Solution: string Index (IS_UNQL) read FSolution write FSolution; property SolutionUser: string Index (IS_OPTN or IS_UNQL) read FSolutionUser write SetSolutionUser stored SolutionUser_Specified; property BusinessTarget: string Index (IS_OPTN or IS_UNQL) read FBusinessTarget write SetBusinessTarget stored BusinessTarget_Specified; property SaF: string Index (IS_OPTN or IS_UNQL) read FSaF write SetSaF stored SaF_Specified; property SolutionSession: string Index (IS_OPTN or IS_UNQL) read FSolutionSession write SetSolutionSession stored SolutionSession_Specified; property Delegation: string Index (IS_OPTN or IS_UNQL) read FDelegation write SetDelegation stored Delegation_Specified; property CommercialChannel: string Index (IS_OPTN or IS_UNQL) read FCommercialChannel write SetCommercialChannel stored CommercialChannel_Specified; property CommunicationsProtocol: string Index (IS_OPTN or IS_UNQL) read FCommunicationsProtocol write SetCommunicationsProtocol stored CommunicationsProtocol_Specified; property ApplicationalUser: ArrayOfApplicationalUser Index (IS_OPTN or IS_UNQL) read FApplicationalUser write SetApplicationalUser stored ApplicationalUser_Specified; property ApplicationalUserSystem: ArrayOfApplicationalUserSystem Index (IS_OPTN or IS_UNQL) read FApplicationalUserSystem write SetApplicationalUserSystem stored ApplicationalUserSystem_Specified; property SystemUser: ArrayOfSystemUser Index (IS_OPTN or IS_UNQL) read FSystemUser write SetSystemUser stored SystemUser_Specified; property SystemUserSystem: ArrayOfSystemUserSystem Index (IS_OPTN or IS_UNQL) read FSystemUserSystem write SetSystemUserSystem stored SystemUserSystem_Specified; property Proxy: Integer Index (IS_UNQL) read FProxy write FProxy; end; // ************************************************************************ // // XML : AxisValues, global, <element> // Namespace : urn:/microsoft/multichannelframework/ // Info : Header // ************************************************************************ // AxisValues = class(AxisValues2) private published end; // ************************************************************************ // // XML : BatchInfoType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchInfoType = class(TRemotable) private FbatchId: Int64; Fdate: TXSDate; Ftype_: string; Fdelivered: DeliveredType; FbatchDataFormat: BatchDataFormatType; FbatchDataFormatVersion: string; FtotalRecords: Integer; public destructor Destroy; override; published property batchId: Int64 read FbatchId write FbatchId; property date: TXSDate read Fdate write Fdate; property type_: string read Ftype_ write Ftype_; property delivered: DeliveredType read Fdelivered write Fdelivered; property batchDataFormat: BatchDataFormatType read FbatchDataFormat write FbatchDataFormat; property batchDataFormatVersion: string read FbatchDataFormatVersion write FbatchDataFormatVersion; property totalRecords: Integer read FtotalRecords write FtotalRecords; end; // ************************************************************************ // // XML : BatchDataListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchDataListType = class(TRemotable) private FbatchData: Array_Of_BatchDataType; FbatchData_Specified: boolean; procedure SetbatchData(Index: Integer; const AArray_Of_BatchDataType: Array_Of_BatchDataType); function batchData_Specified(Index: Integer): boolean; public destructor Destroy; override; function GetBatchDataTypeArray(Index: Integer): BatchDataType; procedure SetBatchDataTypeArray(Index: Integer; const Item: BatchDataType); function GetBatchDataTypeArrayLength: Integer; procedure SetBatchDataTypeArrayLength(Len: Integer); property BatchDataTypeArray[Index: Integer]: BatchDataType read GetBatchDataTypeArray write SetBatchDataTypeArray; default; property Len: Integer read GetBatchDataTypeArrayLength write SetBatchDataTypeArrayLength; published property batchData: Array_Of_BatchDataType Index (IS_OPTN or IS_UNBD) read FbatchData write SetbatchData stored batchData_Specified; end; // ************************************************************************ // // XML : BatchListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchListType = class(TRemotable) private Fbatch: Array_Of_BatchInfoType; Fbatch_Specified: boolean; procedure Setbatch(Index: Integer; const AArray_Of_BatchInfoType: Array_Of_BatchInfoType); function batch_Specified(Index: Integer): boolean; public destructor Destroy; override; function GetBatchInfoTypeArray(Index: Integer): BatchInfoType; procedure SetBatchInfoTypeArray(Index: Integer; const Item: BatchInfoType); function GetBatchInfoTypeArrayLength: Integer; procedure SetBatchInfoTypeArrayLength(Len: Integer); property BatchInfoTypeArray[Index: Integer]: BatchInfoType read GetBatchInfoTypeArray write SetBatchInfoTypeArray; default; property Len: Integer read GetBatchInfoTypeArrayLength write SetBatchInfoTypeArrayLength; published property batch: Array_Of_BatchInfoType Index (IS_OPTN or IS_UNBD) read Fbatch write Setbatch stored batch_Specified; end; // ************************************************************************ // // XML : BatchDataType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchDataType = class(TRemotable) private FbatchId: Int64; FbatchData: TByteDynArray; published property batchId: Int64 read FbatchId write FbatchId; property batchData: TByteDynArray read FbatchData write FbatchData; end; // ************************************************************************ // // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // soapAction: urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1/%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : BrokerIntegrationSoap11 // service : BrokerIntegrationService // port : BrokerIntegrationSoap11 // URL : https://sbxb2bconnect.fidelidade.pt/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BrokerIntegrationSoap = interface(IInvokable) ['{2592F4A0-3ADE-CEC4-3FBF-90C224FB2BEB}'] // Cannot unwrap: // - More than one strictly out element was found // Headers: AxisValuesMsgPart:pIn function searchBatches(const parameters: searchBatches): searchBatchesResponse; stdcall; // Cannot unwrap: // - More than one strictly out element was found // Headers: AxisValuesMsgPart:pIn function getBatches(const parameters: getBatches): getBatchesResponse; stdcall; end; function GetBrokerIntegrationSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): BrokerIntegrationSoap; implementation uses SysUtils; function GetBrokerIntegrationSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): BrokerIntegrationSoap; const defWSDL = 'C:\Users\Downloads\BrokerIntegrationWSDL\BrokerIntegration.wsdl'; defURL = 'https://sbxb2bconnect.fidelidade.pt/B2B/Integration/BrokerIntegration/V1'; defSvc = 'BrokerIntegrationService'; defPrt = 'BrokerIntegrationSoap11'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as BrokerIntegrationSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; constructor getBatches.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getBatches.Destroy; begin SysUtils.FreeAndNil(FbatchIdList); inherited Destroy; end; constructor searchBatchesResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor searchBatchesResponse.Destroy; begin SysUtils.FreeAndNil(FoperationResult); SysUtils.FreeAndNil(FbatchList); inherited Destroy; end; procedure searchBatchesResponse.SetbatchList(Index: Integer; const ABatchListType: BatchListType); begin FbatchList := ABatchListType; FbatchList_Specified := True; end; function searchBatchesResponse.batchList_Specified(Index: Integer): boolean; begin Result := FbatchList_Specified; end; constructor getBatchesResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getBatchesResponse.Destroy; begin SysUtils.FreeAndNil(FoperationResult); SysUtils.FreeAndNil(FbatchDataList); inherited Destroy; end; procedure getBatchesResponse.SetbatchDataList(Index: Integer; const ABatchDataListType: BatchDataListType); begin FbatchDataList := ABatchDataListType; FbatchDataList_Specified := True; end; function getBatchesResponse.batchDataList_Specified(Index: Integer): boolean; begin Result := FbatchDataList_Specified; end; function BatchIdListType.GetInt64Array(Index: Integer): Int64; begin Result := FbatchId[Index]; end; procedure BatchIdListType.SetInt64Array(Index: Integer; const Item: Int64); begin FbatchId[Index] := Item; end; function BatchIdListType.GetInt64ArrayLength: Integer; begin if Assigned(FbatchId) then Result := System.Length(FbatchId) else Result := 0; end; procedure BatchIdListType.SetInt64ArrayLength(Len: Integer); begin System.SetLength(FbatchId, Len); end; function ArrayOfApplicationalUser.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfApplicationalUser.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfApplicationalUser.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfApplicationalUser.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfApplicationalUser.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfApplicationalUser.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfApplicationalUserSystem.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfApplicationalUserSystem.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfApplicationalUserSystem.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfApplicationalUserSystem.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfApplicationalUserSystem.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfApplicationalUserSystem.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfSystemUser.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfSystemUser.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfSystemUser.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfSystemUser.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfSystemUser.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfSystemUser.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfSystemUserSystem.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfSystemUserSystem.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfSystemUserSystem.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfSystemUserSystem.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfSystemUserSystem.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfSystemUserSystem.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; destructor OperationResultType.Destroy; begin SysUtils.FreeAndNil(Ferror); inherited Destroy; end; procedure OperationResultType.Seterror(Index: Integer; const AErrorType: ErrorType); begin Ferror := AErrorType; Ferror_Specified := True; end; function OperationResultType.error_Specified(Index: Integer): boolean; begin Result := Ferror_Specified; end; procedure ErrorNativeEntryType.Setdetail(Index: Integer; const AVariant: Variant); begin Fdetail := AVariant; Fdetail_Specified := True; end; function ErrorNativeEntryType.detail_Specified(Index: Integer): boolean; begin Result := Fdetail_Specified; end; procedure ErrorNativeEntryType.Setsource(Index: Integer; const Astring: string); begin Fsource := Astring; Fsource_Specified := True; end; function ErrorNativeEntryType.source_Specified(Index: Integer): boolean; begin Result := Fsource_Specified; end; destructor ErrorType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fnative)-1 do SysUtils.FreeAndNil(Fnative[I]); System.SetLength(Fnative, 0); inherited Destroy; end; procedure ErrorType.Setdetail(Index: Integer; const AVariant: Variant); begin Fdetail := AVariant; Fdetail_Specified := True; end; function ErrorType.detail_Specified(Index: Integer): boolean; begin Result := Fdetail_Specified; end; procedure ErrorType.Setsource(Index: Integer; const Astring: string); begin Fsource := Astring; Fsource_Specified := True; end; function ErrorType.source_Specified(Index: Integer): boolean; begin Result := Fsource_Specified; end; procedure ErrorType.Setnative(Index: Integer; const AArray_Of_ErrorNativeEntryType: Array_Of_ErrorNativeEntryType); begin Fnative := AArray_Of_ErrorNativeEntryType; Fnative_Specified := True; end; function ErrorType.native_Specified(Index: Integer): boolean; begin Result := Fnative_Specified; end; constructor searchBatches.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor searchBatches.Destroy; begin SysUtils.FreeAndNil(FfromDate); SysUtils.FreeAndNil(FtoDate); inherited Destroy; end; procedure searchBatches.Settype_(Index: Integer; const Astring: string); begin Ftype_ := Astring; Ftype__Specified := True; end; function searchBatches.type__Specified(Index: Integer): boolean; begin Result := Ftype__Specified; end; procedure searchBatches.Setdelivered(Index: Integer; const ADeliveredType: DeliveredType); begin Fdelivered := ADeliveredType; Fdelivered_Specified := True; end; function searchBatches.delivered_Specified(Index: Integer): boolean; begin Result := Fdelivered_Specified; end; destructor AxisValues2.Destroy; begin SysUtils.FreeAndNil(FApplicationalUser); SysUtils.FreeAndNil(FApplicationalUserSystem); SysUtils.FreeAndNil(FSystemUser); SysUtils.FreeAndNil(FSystemUserSystem); inherited Destroy; end; procedure AxisValues2.SetSolutionUser(Index: Integer; const Astring: string); begin FSolutionUser := Astring; FSolutionUser_Specified := True; end; function AxisValues2.SolutionUser_Specified(Index: Integer): boolean; begin Result := FSolutionUser_Specified; end; procedure AxisValues2.SetBusinessTarget(Index: Integer; const Astring: string); begin FBusinessTarget := Astring; FBusinessTarget_Specified := True; end; function AxisValues2.BusinessTarget_Specified(Index: Integer): boolean; begin Result := FBusinessTarget_Specified; end; procedure AxisValues2.SetSaF(Index: Integer; const Astring: string); begin FSaF := Astring; FSaF_Specified := True; end; function AxisValues2.SaF_Specified(Index: Integer): boolean; begin Result := FSaF_Specified; end; procedure AxisValues2.SetSolutionSession(Index: Integer; const Astring: string); begin FSolutionSession := Astring; FSolutionSession_Specified := True; end; function AxisValues2.SolutionSession_Specified(Index: Integer): boolean; begin Result := FSolutionSession_Specified; end; procedure AxisValues2.SetDelegation(Index: Integer; const Astring: string); begin FDelegation := Astring; FDelegation_Specified := True; end; function AxisValues2.Delegation_Specified(Index: Integer): boolean; begin Result := FDelegation_Specified; end; procedure AxisValues2.SetCommercialChannel(Index: Integer; const Astring: string); begin FCommercialChannel := Astring; FCommercialChannel_Specified := True; end; function AxisValues2.CommercialChannel_Specified(Index: Integer): boolean; begin Result := FCommercialChannel_Specified; end; procedure AxisValues2.SetCommunicationsProtocol(Index: Integer; const Astring: string); begin FCommunicationsProtocol := Astring; FCommunicationsProtocol_Specified := True; end; function AxisValues2.CommunicationsProtocol_Specified(Index: Integer): boolean; begin Result := FCommunicationsProtocol_Specified; end; procedure AxisValues2.SetApplicationalUser(Index: Integer; const AArrayOfApplicationalUser: ArrayOfApplicationalUser); begin FApplicationalUser := AArrayOfApplicationalUser; FApplicationalUser_Specified := True; end; function AxisValues2.ApplicationalUser_Specified(Index: Integer): boolean; begin Result := FApplicationalUser_Specified; end; procedure AxisValues2.SetApplicationalUserSystem(Index: Integer; const AArrayOfApplicationalUserSystem: ArrayOfApplicationalUserSystem); begin FApplicationalUserSystem := AArrayOfApplicationalUserSystem; FApplicationalUserSystem_Specified := True; end; function AxisValues2.ApplicationalUserSystem_Specified(Index: Integer): boolean; begin Result := FApplicationalUserSystem_Specified; end; procedure AxisValues2.SetSystemUser(Index: Integer; const AArrayOfSystemUser: ArrayOfSystemUser); begin FSystemUser := AArrayOfSystemUser; FSystemUser_Specified := True; end; function AxisValues2.SystemUser_Specified(Index: Integer): boolean; begin Result := FSystemUser_Specified; end; procedure AxisValues2.SetSystemUserSystem(Index: Integer; const AArrayOfSystemUserSystem: ArrayOfSystemUserSystem); begin FSystemUserSystem := AArrayOfSystemUserSystem; FSystemUserSystem_Specified := True; end; function AxisValues2.SystemUserSystem_Specified(Index: Integer): boolean; begin Result := FSystemUserSystem_Specified; end; destructor BatchInfoType.Destroy; begin SysUtils.FreeAndNil(Fdate); inherited Destroy; end; destructor BatchDataListType.Destroy; var I: Integer; begin for I := 0 to System.Length(FbatchData)-1 do SysUtils.FreeAndNil(FbatchData[I]); System.SetLength(FbatchData, 0); inherited Destroy; end; function BatchDataListType.GetBatchDataTypeArray(Index: Integer): BatchDataType; begin Result := FbatchData[Index]; end; procedure BatchDataListType.SetBatchDataTypeArray(Index: Integer; const Item: BatchDataType); begin FbatchData[Index] := Item; end; function BatchDataListType.GetBatchDataTypeArrayLength: Integer; begin if Assigned(FbatchData) then Result := System.Length(FbatchData) else Result := 0; end; procedure BatchDataListType.SetBatchDataTypeArrayLength(Len: Integer); begin System.SetLength(FbatchData, Len); end; procedure BatchDataListType.SetbatchData(Index: Integer; const AArray_Of_BatchDataType: Array_Of_BatchDataType); begin FbatchData := AArray_Of_BatchDataType; FbatchData_Specified := True; end; function BatchDataListType.batchData_Specified(Index: Integer): boolean; begin Result := FbatchData_Specified; end; destructor BatchListType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fbatch)-1 do SysUtils.FreeAndNil(Fbatch[I]); System.SetLength(Fbatch, 0); inherited Destroy; end; function BatchListType.GetBatchInfoTypeArray(Index: Integer): BatchInfoType; begin Result := Fbatch[Index]; end; procedure BatchListType.SetBatchInfoTypeArray(Index: Integer; const Item: BatchInfoType); begin Fbatch[Index] := Item; end; function BatchListType.GetBatchInfoTypeArrayLength: Integer; begin if Assigned(Fbatch) then Result := System.Length(Fbatch) else Result := 0; end; procedure BatchListType.SetBatchInfoTypeArrayLength(Len: Integer); begin System.SetLength(Fbatch, Len); end; procedure BatchListType.Setbatch(Index: Integer; const AArray_Of_BatchInfoType: Array_Of_BatchInfoType); begin Fbatch := AArray_Of_BatchInfoType; Fbatch_Specified := True; end; function BatchListType.batch_Specified(Index: Integer): boolean; begin Result := Fbatch_Specified; end; initialization { BrokerIntegrationSoap } InvRegistry.RegisterInterface(TypeInfo(BrokerIntegrationSoap), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(BrokerIntegrationSoap), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(BrokerIntegrationSoap), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(BrokerIntegrationSoap), ioLiteral); InvRegistry.RegisterHeaderClass(TypeInfo(BrokerIntegrationSoap), AxisValues, 'AxisValuesMsgPart', 'urn:/microsoft/multichannelframework/'); RemClassRegistry.RegisterXSClass(getBatches, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'getBatches'); RemClassRegistry.RegisterSerializeOptions(getBatches, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(searchBatchesResponse, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'searchBatchesResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(searchBatchesResponse), 'operationResult', '[Namespace="urn:fidelidade.com/schema/SharedResources/OperationResult/V1"]'); RemClassRegistry.RegisterSerializeOptions(searchBatchesResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getBatchesResponse, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'getBatchesResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(getBatchesResponse), 'operationResult', '[Namespace="urn:fidelidade.com/schema/SharedResources/OperationResult/V1"]'); RemClassRegistry.RegisterSerializeOptions(getBatchesResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_ErrorNativeEntryType), 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'Array_Of_ErrorNativeEntryType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_BatchDataType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'Array_Of_BatchDataType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_BatchInfoType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'Array_Of_BatchInfoType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_long), 'http://www.w3.org/2001/XMLSchema', 'Array_Of_long'); RemClassRegistry.RegisterXSClass(BatchIdListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchIdListType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_string), 'http://www.w3.org/2001/XMLSchema', 'Array_Of_string'); RemClassRegistry.RegisterXSClass(ArrayOfApplicationalUser, 'urn:/microsoft/multichannelframework/', 'ArrayOfApplicationalUser'); RemClassRegistry.RegisterXSClass(ArrayOfApplicationalUserSystem, 'urn:/microsoft/multichannelframework/', 'ArrayOfApplicationalUserSystem'); RemClassRegistry.RegisterXSClass(ArrayOfSystemUser, 'urn:/microsoft/multichannelframework/', 'ArrayOfSystemUser'); RemClassRegistry.RegisterXSClass(ArrayOfSystemUserSystem, 'urn:/microsoft/multichannelframework/', 'ArrayOfSystemUserSystem'); RemClassRegistry.RegisterXSClass(OperationResultType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'OperationResultType'); RemClassRegistry.RegisterXSClass(operationResult, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'operationResult'); RemClassRegistry.RegisterXSClass(ErrorNativeEntryType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'ErrorNativeEntryType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ErrorNativeEntryType), 'message_', '[ExtName="message"]'); RemClassRegistry.RegisterXSClass(ErrorType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'ErrorType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ErrorType), 'message_', '[ExtName="message"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(DeliveredType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'DeliveredType'); RemClassRegistry.RegisterXSClass(searchBatches, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'searchBatches'); RemClassRegistry.RegisterExternalPropName(TypeInfo(searchBatches), 'type_', '[ExtName="type"]'); RemClassRegistry.RegisterSerializeOptions(searchBatches, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(AxisValues2, 'urn:/microsoft/multichannelframework/', 'AxisValues2', 'AxisValues'); RemClassRegistry.RegisterXSClass(AxisValues, 'urn:/microsoft/multichannelframework/', 'AxisValues'); RemClassRegistry.RegisterXSInfo(TypeInfo(BatchDataFormatType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataFormatType'); RemClassRegistry.RegisterXSClass(BatchInfoType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchInfoType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(BatchInfoType), 'type_', '[ExtName="type"]'); RemClassRegistry.RegisterXSClass(BatchDataListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataListType'); RemClassRegistry.RegisterXSClass(BatchListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchListType'); RemClassRegistry.RegisterXSClass(BatchDataType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataType'); end.

EXTRAIR DADOS DO CARTÃO DE CIDADÃO

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

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><![CDATA[<?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse>]]></swa:msg> <swa:file href="idfile:PMTP.O31.ZIP"> <xop:Include href="cid:1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org" xmlns:xop="http://www.w3.org/2004/08/xop/include"/> </swa:file> </swa:DownFileServiceResponse> </ns:return> </ns:getFileResponse> </soapenv:Body> </soapenv:Envelope> o ficheiro em raw pelo soap ui --MIMEBoundary_6d44449543e7a99b3a238816e4dc50c08847d77a7729c904 Content-Type: application/xop+xml; charset=UTF-8; type="text/xml" Content-Transfer-Encoding: binary Content-ID: <0.7d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org> <?xml version='1.0' encoding='UTF-8'?><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><?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O31.ZI"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope> --MIMEBoundary_6d44449543e7a99b3a238816e4dc50c08847d77a7729c904 Content-Type: application/octet-stream Content-Transfer-Encoding: binary Content-ID: <1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org> PK���

Estou tentando criar um WEB SERVICE porém ao criar uma conexão e um banco de dados no Data Explorer dá um erro "DBX error: Driver could not be prperly initializaed" Informando ue está faltando um driver no delphi 10 seattle. O que será isso? Tenho que instalr ou o Firedac ou o dbexpress? Já procurei na internet por download deles mas naõ acho para delphi 10 seattle... alguma luz???

Estou num projeto de aplicativo android... e quando vou digitar algo dentro da Edit ela parece estar bloqueada e não dá pra digitar nada... Obs.: A propriedade Readonly está como false e a propriedade enabled da Edit está como true.