Jump to content

Search the Community

Showing results for tags 'delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Web Development
    • HTML e CSS
    • Javascript
    • PHP
    • Ruby
    • Python
    • Banco de Dados
    • Java
    • .NET
    • Mobile
    • Agile
    • Docker, Kubernets and other environments
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Design and UX
    • Algoritmos & Outras Tecnologias
  • Entretenimento e uso pessoal
    • Segurança & Malwares
    • Geral
    • iMasters's pub

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 137 results

  1. om 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 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:\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 ?
  2. gabrielmdn

    Erro infinito !

    Boa noite meus amigos. Estou com um problema enorme aqui. Precisei formatar o PC, e entao fiz um backup de tudo que tenho..normal Quando abri o meu projeto no delphi e pedi para compilar ele parou na linha 114 e começou a aumentar os erros. Deixei por duas horas para ver até onde ia...e continuou Não tenho ideia do que esta acontecendo. Se não tivesse forçado a parada forçada nao teria parado até agora. Alguem ja passou por isso? Estou bem preocupado, pois isso nunca me aconteceu.
  3. andreluis78

    Query em tempo de execução

    Olá a todos.Criei um procedimento para verificar se um usuário está cadastrado no banco de dados.Utilizo Firebird como BD e componentes Zeos para acessar o banco.Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clicono botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco. Segue o código: procedure Tfrm_login.SpeedButton1Click(Sender: TObject); var Qry : TZQuery; begin Qry:=TZQuery.Create(nil); Qry.Connection := dm_dados.ZConnection1; //componente de conexão Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes'); Qry.Open; if Qry.Locate('USER',Edit1.Text,[]) then begin ShowMessage('usuário cadastrado'); end else begin ShowMessage('usuário inexistente'); Edit1.SetFocus; end; FreeAndNil(Qry); end; Se alguém puder ajudar agradeço desde já. Obrigado
  4. Boa noite, trabalho com Delphi e estou tendo dificuldade em fazer conexão com meu servidor que esta na argentina, uso o firedac para fazer a conexão com o banco, so que o comando que estou utilizando esta dando erro e não sei se estou configurando certo a minha query. Ja criei os linked server e tambem não resolveu...... uso um select dentro do delphi dessa maneira : DELPHI FDQuery e dentro uso esse select Select * from [192.168.XX.XXX].banco.dbo.tabela direcionando para o meu servidor que esta na argentina sendo 192.168.xx.xxx o ip do servidor de la e o nome do banco é servicos e a tabela ordens. Se alguem conhece ou ja fez esse tipo de conexão , estou precisando dessa grande ajuda... obrigado
  5. EmersonEN

    Cuidado com o Delphi Commuity!!!

    Olá, pessoal.Sempre fui um grande entusiasta do Delphi... desde a versão 1.Trabalhei com praticamente todas as versões até o ano de 2016.Continuei trabalhando com desenvolvimento, mas mudei de linguagem de programação.Recentemente surgiu um cliente no qual poderia ser possível desenvolver um sistema, que eu optei por desenvolver em Delphi, que é uma linguagem e IDE no qual eu me sinto confortável em trabalhar.Trabalho dentro dessa empresa, mas sou terceirizado (tenho meu próprio CNPJ e nenhum poder financeiro kkkk) então instalei a Community Edition para verificar a aderência em função das necessidades do cliente.Em paralelo iniciei uma negociação junto à Embarcadero para, num futuro próximo, ter uma versão completa, já que eu poderia ter algum retorno APÓS esse desenvolvimento.Nessa negociação recebi o valor da versão Enterprise (R$ 30k) e da Professional (R$ 12k).Ocorre que, na mesma semana (semana passada), meu cliente recebeu um email da Embarcadero - mesmo tendo meus dados na licença, a Embarcadero mandou o email diretamente para o meu cliente; eu não fui colocado sequer em cópia - informando que meu cliente havia infringido um termo da licença e instalado a versão Community de forma indevida, pois não poderia ser instalada em ambiente corporativo.Nesse mesmo email veio a bomba: a empresa estava obrigada a pagar R$ 77k para regularizar a situação.Esse valor dava direito a 2 (!) licenças do Delphi Enterprise, cada uma com 2 anos de suporte (!).Meu cliente faz máquinas e ferramentas e não têm qualquer interesse ou uso para o Delphi.Argumentou-se junto à Embarcadero - na verdade seu representante no Brasil - que a instalação não foi para uso da empresa; que foi para MEU uso, meu CNPJ, somente para avaliar a viabilidade da ferramenta; que eu havia demonstrado interesse em comprar uma versão, mas estava avaliando a partir da Community - e era realmente esse o intuito da instalação.Não teve jeito.Nenhum argumento serviu e agora eu terei de pagar essas 2 licenças do Delphi Enterprise, cada uma com 2 anos de suporte cada uma, e que EU NÃO IREI USAR!Então meu cliente vai pagar e EU TEREI DE REEMBOLSÁ-LO. Por sorte eu não perdi o cliente/emprego. Imaginem ter que pagar esse valor sem qualquer renda...Segue o aviso: tomem muito cuidado! A versão Commnunity pode se tornar uma grande cilada pra vocês, como foi pra mim!!!Leiam atentamente o contrato de licenciamento dessa versão para não terem problema.Eu conhecia o Lazarus mas ainda não o tinha instalado. Fiz isso somente nesse fim de semana.Sugiro que, ao menos para testes, optem pelo Larazus (em conjunto com o Rest Dataware https://www.restdw.com.br/, que é fantástico). Provavelmente você não dexará mais de utilizá-lo.Nem preciso dizer que estou bem decepcionado com a postura da Embarcadero nesse caso.Viram uma grande empresa e a oportunidade de "extorquir" sem dó (porque não foi uma negociação; foi uma imposição), sem pensar em quem realmente pagaria a conta, apesar dos argumentos.Sei que para a Embarcadero eu não tenho qualquer valor, sou apenas um desenvolvedor, mas essa conta ficou bem cara pra mim e agora, além de não usar mais ferramentas Embarcadero, também não as recomendarei pra qualquer outra pessoa/empresa.É isso.A agora bora trabalhar porque tenho uma bela conta pra pagar!Desculpem o desabafo.
  6. ronaldobgomes

    Filtro em dois Campos SQL Delphi

    Boa tarde galera Tenho um problema que preciso resolver, seguinte: tenho um banco de dados e nele contem uma tabela chamada agencia, ela esta funcionando legal mas NÃO consegui montar um filtro legal pra ela, a tabela é de agencias bancarias, chama-se Bancoage, os campos de pesquisa são Bancod e Agenum o editbanco.text busca só banco , exemplo: '237'.O editagencia.text busca só agencias, exemplo: '0522' e os dois edit teria que pesquisar banco agencia, banco - agencia - 237 0522 este comando eu quero usar nas pesquisas e também pra verificar se ja existe a agencia cadastrada. meu filtro só faz em um edit só, me ajudem por favor. Uso UniSql, delphi 10.3 e que fique claro eu estou desenvolvendo um programa para empresas de cobrancas e esta base alimenta o cadastro de cheques Valew!!!!!
  7. ola fiz a instalação de um programa que eu fiz e deu o seguinte erro : SQL state: 42000 SQL error code 8179Não foi possivel encontrar a instrução preparada como o identificador - 1.O que pode ser ? estou usando componentes dbexpress
  8. luca0202

    SQL state: 42000 SQL error code 8179

    SQL state: 42000 SQL error code 8179Não foi possivel encontrar a instrução preparada como o identificador - 1estou utilizando o os componentes dbExpress ai quando eu testo no meu computador que e windows 10 roda de boinha ai quando vou testar no pc de outra pessoa que e windows 7 da esse erro quando vou abrir um um dbgrido que pode ser esse erro ? alguem me ajude ?obs: estou utilizando o banco sql server
  9. Boa tarde meus amigos, Estou implementando uma integração entre um banco de dados local e outro na nuvem da Amazon. Estou com um problema sério aqui: ao fazer o Putclientes, por exemplo, ou seja, ao enviar ao servidor as alterações e inserções do Banco local, se, após um insert em lote na tabela da nuvem, o Result da função Put não conseguir retornar ao cliente rest que o chamou, por uma queda do link de internet, por exemplo, esses inserts já foram commitados na nuvem, mas os relacionamentos entre o código externo gerado e o código interno enviado, não pode ser concebida. Sendo assim, no próximo Put, os clientes sem a relação entre os códigos, serão inseridas novamente, gerando duplicidade de cadastros na nuvem. Meu problema é saber como commitar a transação na nuvem somente após o Result chegar ao cliente rest que fez a chamada. Alguém pode me ajudar com isso?
  10. Bom dia pessoal, utilizo o Delphi XE6 preciso de alguma forma de transformar uma imagem JPEG em binário(octet-stream) para enviar para um web service.
  11. Bom Dia pessoal, tudo bom? Sou novo em programação e estou tentando criar uma dll no delphi. Essa dll vai ser usada em uma aplicação do delphi também. Queria saber se é possível utilizar vetores e matrizes e como fazer isso pois eu tentei declarar como um array of array of (um tipo), mas dá erro (essas matrizes seriam parâmetros da função). Colocando só como array of (um tipo) funciona, mas ao tentar acessar a função na dll dá um access violation. Eu já havia criado essa função dentro da minha aplicação e estava funcionando, mas na dll da esse erro. Eu tentei usar um ponteiro também, mas continua dando o erro. Por favor me ajudem. Segue o código: library NDC_Generator; uses SysUtils, Dialogs, Classes; Type Matriz = Array of array of string; P1 = ^Matriz; {$R *.res} procedure MensagemConfirmacao(AMensagem: WideString); stdcall; begin MessageDlg(AMensagem, mtInformation, [mbOk], 0); end; function gerarcombinacoes(Mat: P1; Xb, Total, np, NumCri: integer; mp, bud: Double; Pointer: P1): string; stdcall; var i, j, k, T, a, p: integer; aux1: string; R0: Double; vetop, vmax: array of integer; matrizaj: array of array of integer; vetmax, vetmin: array of Double; vet_aux, Vetname: array of string; matrizaux1 : array of array of Double; matriz_result: array of array of String; begin setlength(vetop, np); setlength(vmax, np); setlength(matrizaj, T, np); setlength(vetmax, NumCri); setlength(vetmin, NumCri); setlength(vet_aux, T); p := 0; for i := 0 to np - 1 do begin vmax[np - i - 1] := Xb - i; end; for i := 0 to np - 1 do vetop := i + 1; vetop[np - 1] := np - 1; for i := 0 to NumCri - 1 do begin vetmin := 100000; vetmax := -1; end; i := 0; T := 0; while (T < Total) do // Gerar as combinações com np elementos begin if T <> 1 then i := np; while (i > 0) do // Verifica se alguma das posições já atingiu seu máximo begin if (i - 1) <> 0 then // Verifica se não se trata da primeira posição que atingiu seu máximo begin if (vetop[i - 1] = vmax[i - 1]) and (vetop[i - 2] < vmax[i - 2]) then begin vetop[i - 2] := vetop[i - 2] + 1; vetop[i - 1] := vetop[i - 2]; ; if (i < np) then for j := i to np - 1 do vetop[j - 1] := vetop[j - 2] + 1; vetop[np - 1] := vetop[np - 2]; break; end; // vetop end; // 0 i := i - 1; end; // while i>0 vetop[np - 1] := vetop[np - 1] + 1; R0 := 0; for k := 0 to np - 1 do R0 := R0 + StrToFloat( Mat^[vetop[k] - 1, NumCri + 1]); if R0 <= bud then begin p := p + 1; setlength(matrizaux1, p, NumCri + 1); setlength(Vetname, p); for a := 0 to NumCri - 1 do begin for k := 0 to np - 1 do matrizaux1[p - 1, a] := matrizaux1[p - 1, a] + StrToFloat( Mat^[vetop[k] - 1, a + 1] ); if (matrizaux1[p - 1, a] > vetmax[a]) then vetmax[a] := matrizaux1[p - 1, a]; if (matrizaux1[p - 1, a] < vetmin[a]) then vetmin[a] := matrizaux1[p - 1, a]; end; matrizaux1[p - 1, NumCri] := R0; a:= 0; for k := 0 to np - 1 do Vetname[p - 1] := Vetname[p - 1] + Mat^[ vetop[k] - 1,a] + ' '; end; // R0 <= Bud T := T + 1; end; // While a := 0; k := 0; for i := 0 to p - 1 do begin if mp <> 0 then for j := 0 to NumCri - 1 do begin if vetmax[j] <> vetmin[j] then begin R0 := (matrizaux1[i, j] - vetmin[j]) / (vetmax[j] - vetmin[j]); end else R0 := 1; if R0 >= mp then begin a := a + 1; end else break; end else a := NumCri; if a = NumCri then begin k := k + 1; for j := 0 to NumCri do begin setlength(matriz_result, k, NumCri + 2); matriz_result[k - 1, j+1] := floattostr( matrizaux1[i, j]); end; matriz_result[k - 1, 0]:= Vetname; end; a := 0; end; for I := 0 to k - 1 do for j := 0 to numcri + 1 do Pointer^[i,j]:= matriz_result[i,j]; MensagemConfirmacao('Foram geradas' + inttostr(k) + 'combinações!'); Result := '0'; end; exports gerarcombinacoes; end.
  12. Boa tarde Pessoal, Estou com a seguinte dúvida, como faço para colocar componentes sobre o webbrowser, pois quero colocar um panel flutuante, mas usando o bringtofront e o sendtoback não está funcionando, apenas o webbrowser fica em 1º plano. Aguardo a ajuda de voces!! Obrigado!
  13. No DataModule tenho um SQLDataSet, DataSetProvider, DataSet, quando abro o banco de dados e tento abrir a tabela TBLUSUARIOS em tempo de desenvolvimento no SQLDataSet, dá um erro: "Unknown ISC Error 0" e quando tento novamente "Attempet to reopen an open cursor". Quando digito a Query SQL no CommandText do SQLDataSet e mudo a propriedade Active para True ele retorna este erro. Ele consegue abrir qualquer uma das outras tabelas do banco de dados, menos a tabela em questão. Estava abrindo perfeitamente com o SimpleDataSet mas apaguei para usar o SQLDataSet e obtive este erro. O engraçado que tentei retornar para SimpleDataSet mas também não funciona mais, alguém pode me ajudar?
  14. Olá... sou novo em Delphi e gostaria de saber como fazer buscas de informações via snmp para a plataforma mobile ?
  15. Boa Noite.Estou desenvolvendo um relatório utilizando o fastreport e estou com o seguinte problema.É um relatório de pedidos e por tanto precisa imprimir um pedido, voltar para a tela de parâmetros imprimir o próximo e assim sucessivamente.Porem o primeiro relatório vai certinho mas ele não limpa os dados e os próximos relatórios saem todos iguais ao primeiro.Ja tentei iniciar ele de varias formas diferente e nenhuma deu certo atualmente estou iniciando ele assim.*******************************************fr:=frxRComanda.Create(self);fr.LoadFromFile('Commanda.fr3');fr.PrepareReport(); // Prmeiro relatório setar True para limpar todos os anterioresfr.ShowReport;fr.clear;fr.free;******************************************** Ambiente: - Delphi 10.3 FastReport 6 SqlServer 2012 Windows 10Alguem ja pegou uma situação desta?
  16. Bom dia, Estou em uma estação windows tentando me conectar a uma base SQL Server 2012 que está em um servidor Linux e estou tendo o seguinte problema. O Sistema tem duas instalações rodando em dois ambientes de servidores. Uma equipe utiliza o sistema com a base em um servidor Windows. Isto está funcionando sem problemas. Uma outra equipe vai precisar utilizar uma outra instalação do mesmo sistema porem esta terá que utilizar a mesma base instalada em um servidor Linux. O Sql Server manager está correto, conectou sem problemas e me responde todas as tabelas sem erros, lista todas as querys e executa todas as procedures views e triguers. A Conexão OBDC tambem respondeu sem erros e deu teste de conexção concluido com exito. No delphi eu utilizo Ado conection para me conectar à base, e ele responde também sem erros e testa a conexão retornando teste de conexção concluido com exito. Até ai está tudo certo. O Problema é o seguinte. Quando eu ligo uma adotable ou uma ado query ele tambem conecta sem me retornar nenhum erro porem as tabelas não me trazem valor algum, elas respondem como se a base estivesse Vazia. Alguem sabe o que eu posso estar fazendo de errado? Obs. A Instalação está em dois Ambientes por que a demanda é desativar o servidor Windows e deixar somente a instalaçao Linux. ************************************************************** Ambiente: Estação Windows 10 Delphi 10.3 Sql Server 2012 Instalada em um Servidor Linux Conexão ODBC **************************************************************
  17. Olá bom dia a todos, tenho um software que desenvolvi para emissoras de rádio, em meu computador funciona perfeitamente, mas quando testo em um computador básico de trabalho, ele dá erros na qual verifiquei que influencia na pasta as permissões, pois por exemplo, uso arquivo ini, e se não der permissão na pasta de escrita ele dá erro, e também criação de logs de erros em txt. Só que se eu instalar meu programa em um computador normal gera erros, então a pergunta afinal, como resolver isso? Meu software está sendo desenvolvido em Delphi para versão 32bits. Obrigado a todos.
  18. Geraldo lacerda

    Imgem de Url travando aplicativo Delphi mobile

    Ola pessoal.. sou inciante em delphi mobile e estou com a seguinte situação: tenho 3 listview que recebe dados via rest de um site PHP usando restCliente, RestREquest e restResponse... os dados recebe certim, popula alistvew tudo corretamente, compila também tudo normal.... o problema vem a seguir..... no rest tem um campo imagem (jpg,png) somente a url da imagem, uso esta função para converter a imagem em Bitmap function TfrmPrincipal.LerImage(url: string): TBitmap; var strm : TmemoryStream; begin strm := TMemoryStream.Create; try http.Get(url,strm); strm.Position := 0; Result := TBitmap.Create; result.Width := 100; result.Height := 50; result.LoadFromStream(strm); finally strm.Free; end; end; porem quando coloco na listview esta imagem o aplicativo trava (para de responder..... uso desta forma no listview alguem me dá uma luz como resolver isso??
  19. olá pessoal se puderem tirar essa minha duvida rápidinho eu agradeço. ainda tem como usar o font awesome por link invés de manter ele na maquina local ? se sim, podem me passar o link ? estou fazendo uma aplicação delphi usando o lazarus e o raudus, porem ainda não sei muito bem como referenciar um item local por isso quero puxar as coisas direto de seus devidos servidores. obrigado pela atenção.
  20. Então queria saber se é possível fazer a conexão entre o Delphi e uma Impressora Não Fiscal (uma simples)? É que estou desenvolvendo um programa em Delphi, e minha ideia era que através de um button, fosse impresso algo que está escrito em um DBEdit (Pode ser outro componente editável, desde que seja BD, pois estou mexendo com banco). E não tenho ideia de como desenvolver um código para que isto ocorra, se alguém souber e puder ajudar, agradeço. Estou realmente precisando.
  21. Estou fazendo um programa em delphi que pesquisa e mostra dados de alunos. Tenho duas tabelas no banco interligadas por uma FK, e no programa uma FDQuery e um DataSource para cada tabela(alunos e observacoes) (FDQuery1=alunos / FDQuery2=observacoes). A tabela alunos tem os campos: matricula(Chave Primaria, unica), nome, turma, curso, data_de_nascimento, etc. (e possui diferentes alunos já cadastrados) A observacoes tem id_observacao(FK ligada com a matricula da tabela alunos), matricula, observacao, data. Basicamente o que estou fazendo é: Estou usando um DBEdit (ligado no campo observacao pelo datasource) para inserir informações na tabela observacoes no banco. Então essas informações estão sendo inseridas na tabela observacoes, e já estão ficando interligadas no aluno cadastrado que está selecionado na FDQuery1 (estão interligados atraves da matricula) . O meu problema é: Como faço para mostrar em um DBText as informações que foram inseridas(pelo DBEdit) na tabela observacoes (FDQuery2), dependendo do aluno(cadastrado) que esta esta selecionado na FDQuery1 (tabela alunos). Segue algumas imagens para vcs entenderem melhor:
  22. xdxddxd

    Aplicação Intraweb

    Estou fazendo um aplicação web usando o delphi intraweb, eu estava tentando fazer um menu global para que seja alicado em todos os forms, consegui puxar o layout normalmente, porem os botões do formulario o qual esse layout pertence não vieram juntos. agradeço desde já pela sua atenção, se tiver um link no qual eu posso estudar isso eu ja agradeço.
  23. Eu tenho um aplicativo cliente> servidor, onde são estabelecidas conexões usando componentes Socket ( TClientSocketdo cliente se conecta ao TServerSocketservidor). Agora, desejo que os clientes se conectem primeiro a um terceiro aplicativo (um tipo de "ponte de conexão" ou "repetidor") que será executado em um Windows VPS e deve direcionar essas conexões dos clientes para o aplicativo do servidor em execução no servidor pc. Exemplo: Provavelmente (não tenho certeza) esse tipo de "ponte de conexão" ou "repetidor" que será executado no VPS pode ser semelhante ao aplicativo de servidor que será executado no servidor pc, mas não sei como conectar e fazer o gerenciamento da conexão / desconexão e o envio / recebimento de dados entre esses três aplicativos. Alguém poderia me dizer como isso pode ser feito de uma maneira simples e, se possível, também fornecer um exemplo de código sobre isso? Abaixo segue o código do cliente e servidor (servidor que será executado no servidor pc), isso é tudo o que tenho até agora. Cliente: uses ScktComp; type TForm1 = class(TForm) ClientSocket1: TClientSocket; Timer1: TTimer; Label1: TLabel; procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); procedure Timer1Timer(Sender: TObject); procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin Label1.Caption := 'CONNECTED'; end; procedure TForm1.ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket); begin Label1.Caption := 'CONNECTING...'; end; procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); begin Label1.Caption := 'DISCONNECTED'; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if not ClientSocket1.Active then ClientSocket1.Active := true; end; procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode := 0; end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var s: string; begin s := Socket.ReceiveText; if s = 'CMD' then Socket.SendText('Hello, here is Client: ' + Socket.LocalHost + '!'); end; end. Servidor: uses ScktComp; type TForm1 = class(TForm) ListView1: TListView; ServerSocket1: TServerSocket; PopupMenu1: TPopupMenu; SON: TMenuItem; SOFF: TMenuItem; SCMD: TMenuItem; procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocket1ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); procedure SONClick(Sender: TObject); procedure SOFFClick(Sender: TObject); procedure SCMDClick(Sender: TObject); procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); var Item: TListItem; begin Item := ListView1.Items.Add; Item.Caption := IntTostr(Socket.Handle); Item.SubItems.Add(Socket.RemoteAddress); Item.SubItems.Add(Socket.RemoteHost); Item.Data := Socket.Data; end; procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); var Item: TListItem; begin Item := ListView1.FindCaption(0, inttostr(Socket.Handle), false, true, false); if Item <> nil then Item.Delete; end; procedure TForm1.ServerSocket1ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode := 0; end; procedure TForm1.SONClick(Sender: TObject); begin ServerSocket1.Active := true; end; procedure TForm1.SOFFClick(Sender: TObject); begin ServerSocket1.Active := false; end; procedure TForm1.SCMDClick(Sender: TObject); begin if ListView1.Selected = nil then exit; ServerSocket1.Socket.Connections[ListView1.ItemIndex].SendText('CMD'); end; procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var s: string; begin s := Socket.ReceiveText; if s <> '' then ShowMessage(s); end; end.
  24. Bom dia, Tenho um problema, quando quero colocar o foco para uma coluna especifica pelo nome do campo no banco, nao da certo porem se eu fizer colocando o numero da ordem da coluna, exemplo coluna 4, ai da certo, mas queria pelo nome do campo Eu desejava dessa forma, porem assim ele nao da o foco. if condicao then grdAjuste.SetFocus('id_codigo'); Agora se eu fizer assim... if condicao then grdAjuste.SetFocus(4); assim da, porem dessa forma eu acho errado... se alguem puder me ajudar... Obrigado.
  25. leo.silvagomes

    Importar arquivo CSV para SQL

    Boa noite! Tenho um programa que importa determinado arquivo CSV para um banco SQL afim de depois comparar os dados entre versões diferentes do mesmo arquivo, por exemplo uma versão do arquivo é do dia 01/09 e outra do dia 15/09, a finalidade do arquivo é comparar o que mudou Uso uma procedure para importar os dados do arquivo para um objeto JvMemoryData e outra para alimentar uma ADOProc que faz o insert no SQL com os dados desse JvMD Ocorre que o arquivo tem um padrão de 38 colunas e algo prox de 1 milhão de linhas! Como o cliente não usa toda a informação na planilha fiz uma opção de importação rápida que faz o input somente das colunas utilizadas, mas mesmo assim o processo de leitura e importação do arquivo demora até 50 min Como posso deixar isso mais rápido?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.