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
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

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 141 results

  1. 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
  2. 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?
  3. 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 **************************************************************
  4. 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
  5. 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!!!!!
  6. 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.
  7. 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??
  8. 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.
  9. 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.
  10. 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.
  11. 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.
  12. 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.
  13. 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?
  14. vinihhylian0103

    DATABASE IS LOCKED DELPHI MOBILE

    Estou fazendo um projeto de Delphi escola e nele tenho que gravar dados no SQLITE. Estou usando o seguinte código: unit UClube; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.StdCtrls, FMX.ListView, FMX.DateTimeCtrls, FMX.Edit, FMX.Controls.Presentation, FMX.TabControl, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.FMXUI.Wait, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.DB, FireDAC.Comp.DataSet, Data.Bind.Components, Data.Bind.DBScope, FireDAC.Comp.UI, FireDAC.Comp.Client, System.IOUtils; type TForm1 = class(TForm) TabControl1: TTabControl; TabItem2: TTabItem; tb1: TTabItem; lvSocio: TListView; btnSalvar: TButton; btnCancelar: TButton; btnEditar: TButton; btnExcluirr: TButton; Panel1: TPanel; edtDataNasc: TDateEdit; edtCod: TEdit; edtNome: TEdit; edtRg: TEdit; edtCPF: TEdit; edtEndereco: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; labwl: TLabel; NOME: TLabel; Button5: TButton; Panel2: TPanel; edtDataA: TDateEdit; edtCodSocio: TEdit; Label6: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; rdbSocio: TRadioButton; edtNomeA: TEdit; btnNovoA: TButton; edtHoraIA: TEdit; Label7: TLabel; Edit7: TEdit; edtHoraFA: TLabel; edtDescricaoA: TEdit; Label9: TLabel; edtValorA: TEdit; btnCancelarA: TButton; btnEditarA: TButton; btnExcluirA: TButton; btnSalvarA: TButton; lvAgendamento: TListView; FDConnPrincipal: TFDConnection; qrSocio: TFDQuery; qrAgendamento: TFDQuery; FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink; FDGUIxWaitCursor1: TFDGUIxWaitCursor; BindSourceDB1: TBindSourceDB; BindingsList1: TBindingsList; LinkListControlToField1: TLinkListControlToField; LinkControlToField1: TLinkControlToField; LinkControlToField2: TLinkControlToField; LinkControlToField3: TLinkControlToField; LinkControlToField4: TLinkControlToField; LinkControlToField5: TLinkControlToField; LinkControlToField6: TLinkControlToField; qrSocioID: TFDAutoIncField; qrSocioNOME: TStringField; qrSocioRG: TStringField; qrSocioCPF: TStringField; qrSocioENDERECO: TStringField; qrSocioDATA_NASC: TDateField; qrSocioCODIGO: TIntegerField; qrAgendamentoID: TFDAutoIncField; qrAgendamentoNOME: TStringField; qrAgendamentoCODIGO: TIntegerField; qrAgendamentoDESCRICAO: TWideMemoField; qrAgendamentoDATA: TDateField; qrAgendamentoHORA_INICIO: TStringField; qrAgendamentoHORARIO_FIM: TStringField; qrAgendamentoVALOR: TLargeintField; qrAgendamentoSOCIO: TStringField; procedure rdbSocioChange(Sender: TObject); procedure btnSalvarClick(Sender: TObject); procedure Button5Click(Sender: TObject); procedure btnCancelarClick(Sender: TObject); procedure btnEditarClick(Sender: TObject); procedure btnExcluirrClick(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.btnCancelarClick(Sender: TObject); begin qrSocio.Cancel; Panel1.Enabled := False; end; procedure TForm1.btnEditarClick(Sender: TObject); begin if qrSocio.RecordCount > 0 then begin qrSocio.Edit; Panel1.Enabled := True; edtNome.SetFocus; end; end; procedure TForm1.btnExcluirrClick(Sender: TObject); begin if qrSocio.RecordCount = 0 then abort; qrSocio.Delete; ShowMessage('Dados excluídos!'); end; procedure TForm1.btnSalvarClick(Sender: TObject); begin if edtNome.Text = '' then begin ShowMessage('O nome não pode estar vázio!'); edtNome.SetFocus; abort; end; qrSocio.Post; qrSocio.Refresh; Panel1.Enabled := False; end; procedure TForm1.Button5Click(Sender: TObject); begin Panel1.Enabled := True; edtNome.SetFocus; qrSocio.Append; end; procedure TForm1.FormShow(Sender: TObject); begin FDConnPrincipal.Connected := True; try {$IF DEFINED (IOS) or DEFINED (ANDROID)} FDConnPrincipal.Params.Values['DATABASE'] := TPath.Combine(TPath.GetDocumentsPath, 'BD_CLUBE.s3db'); {$ENDIF} except on E: Exception do ShowMessage(e.Message); end; qrSocio.Open(); end; procedure TForm1.rdbSocioChange(Sender: TObject); begin if rdbSocio.IsChecked = true then begin edtCodSocio.Enabled := true; edtCodSocio.SetFocus; end; end; end. E recebo o seguinte erro:
  15. Galera, boa noite. Estou com dificuldades para realizar um insert em uma tabela no oracle. Criei duas lists, uma buscando o código das filiais existentes em uma tabela e outro para receber as filiais de acordo com a escolha do usuário. Estou realizando um cadastro de produtos por filial, então ao terminar o cadastro o dialog pergunta se quer atualizar os dados em outra filial. Se marcada a opção SIM, abre a tela para escolher para qual filial o usuário quer copiar ( update ). Mas pode existir situações onde o produto não existe, então queria que realiza-se um insert para essas filiais ao invés do update. Alguém pode ajudar?
  16. Bom dia, sou iniciante em Delphi, estou fazendo um Cadastro de Clientes, gostaria de usar três Edit´s para filtrar alguns dados porem com o código abaixo consegui fazer apenas com 1 edit.text, como faço pra usar três e que se algum estiver em branco ele retorna o valor apenas do Edit.text que foi preenchido? Exemplo: Quero buscar por Nome, Situação e Rota (Cliente a da rota B com situação C) e se algum desses campos estiver vazio ele busca apenas o que foi preenchido. Obrigado pela atenção! . procedure TFrm_Cadastro.Bt_BuscarClick(Sender: TObject); begin with Frm_Cadastro.Tbl_Clientes do begin Close; SQL.Clear; SQL.Add( 'Select * from Tbl_Cad_Clientes'); SQL.Add('where Cli_Nome like :nome'); ParamByName('nome').Value := '%' + txt_buscar_nome.Text + '%'; Open; end; end;
  17. Boa tarde Senhores, estou com um projeto de inclusão da QR-Code no sistema para um cliente que fica no Rio Grande do Sul através de WEB Service. Estou colocando os web-service disponível no site da SEFAZ-RS, mas está dando erro 403. Preciso que vocês me enviem um WEB-Service e se precisa de algum certificado digital válido. Estou tentando com esse: https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx Encontrei ele por esse site: http://nfce.encat.org/desenvolvedor/webservices-p/ Desde já agradeço. Luis Dario
  18. brenno_32br

    MSIEXEC DELPHI DX, erro

    Ola, Estou com seguinte problema, porém no meu nível e difícil.seguinte, estou fazendo a baixa e instalação de um drive de um link especifico, no meu caso consigo executar manualmente e pelo cmd usando msiexec, porém quando eu uso no Delphi em procedure não consigo.*certifiquei se o arquivo existe.*consigo executar e instalar usando o mouse.*usando msiexec manualmente o cmd ok*o arquivo esta na extensão .msiporém quando chamo essa função abaixa consigo entrar na condição, no entanto quando e executado o comando, apresentar a seguinte mensagem'Este pacote de instalação não pode ser aberto. verifique se o pacote exite e se você pode acessa-lo ou entre em contato com o o fornecedor do aplicativo para verificar se este é um pacote valido do Windows Installer.' procedure TFormPrincipal.eInstalaDrive(Nome: string);beginif Nome = 'safenet-pro72k-x64.msi' thenbeginShowMessage('intalando aqui: '+Nome);// WinExec('msiexec /i c:\\soluti\\safenet-pro72k-x64.msi',SW_SHOW);// foi usado essa forma sem exito por aquiWinExec('cmd /C msiexec /i c:\\soluti\\SafeNet-Aladin(x64).msi',SW_SHOW);// esse aqui tbm sem exito.endelse...Alguém consegue me auxiliar nesse caso. obrigado.
  19. estou tentando fazer a conexão ao banco de dados oracle 11g no delphi 10.2 pelo fireDAC e está reportando o seguinte erro ao conectar:[FireDAC][Phys][Ora] Ora-12546: TNS: permission denied.já mandei para o DBA para verificar e ainda não consegui o retorno, fiz o teste conectando em outro banco de dados por exemplo do firebird e conectou ok...Alguém saberia me disse qual seria esta permissão para resolver o problema???
  20. Boa tarde! Eu estou iniciando em delphi, sou bem novato. Porém estava querendo fazer com que ao pressionar um botão no form1 ele abrisse o form2 com uma informação calculada no label. Porém estou com problema na questão de fazer esses formulario se interligarem. Desde Já Agradeço. Talvez até chamando uma procedure do form1 para responder no form2
  21. Pessoal boa noite!! Criei um servidor datasnap e to precisando de uma ajuda agora neste pondo do lado cliente. No meu servidor tenho um Method que se chama GetVendas para pegar as vendas. Porem agora ´preciso passar um período para retornar as vendas, ai que não estou conseguindo montar minha url. estou fazendo desta maneira do lado do cliente: Preciso saber como passar a data RESTClient1.ResetToDefaults; RESTRequest1.ResetToDefaults; RESTResponse1.ResetToDefaults; RESTClient1.BaseURL := 'http://localhost:8080/datasnap/rest/TVendaControl'; RESTRequest1.Resource := '/Venda/{Status}/{CodVendedor}/{DtIni}/{DtFim}'; RESTRequest1.Method := TRESTRequestMethod.rmGET; RestRequest1.Params.AddItem('Status',inttostr(cbbStatus.ItemIndex), TRESTRequestParameterKind.pkURLSEGMENT); RestRequest1.Params.AddItem('CodVendedor','', TRESTRequestParameterKind.pkURLSEGMENT); Project GestorApp.exe raised exception class EHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'. --------------------------- Break Continue Help --------------------------- Agradeço a todos e um forte abraço.
  22. IvairCosta

    Delphi no Windows 10

    Boa tarde. Possuo um notebook com Windows 10 Home e Oracle 11G Expression. Instalei o Delphi Tokyo Trial, mas o DBexpress não funciona. Gostaria de saber qual versão do Delphi funciona bem no Windows 10 e qual versão do Oracle eu poderia usar de forma que funcionasse o Dbexpress em conjunto com o Oracle. Um ex-colega de trabalho ja tentou com a mesma configuração que eu mencionei e tambem não funcionou para ele. Instalei o Delphi 7 no Windows 10, mas tambem houve erro no Dbexpress. Obrigado.
  23. Claudemir Vaz

    Delphi

    Olá bom dia comprei um código fonte para delivery porem ao compilar sitema nao encontra alguns arquivos.
  24. Joelend

    Deixar libVlcPlayer mudo

    Estou utilizando TPasLibVlcPlayer para reprodução de videos e preciso que estes sejam exibidos sem áudio. Tentei utilizar a função "vlc.SetAudioMute(true); " porem não funcionou... Olhando a documentação encontrei isso: "Aviso Esta função nem sempre funciona. Se não houver fluxo de reprodução de áudio ativo, o status de mudo poderá não estar disponível. Se a passagem digital (S / PDIF, HDMI ...) estiver em uso, o muting pode não ser aplicável. Além disso, alguns plug-ins de saída de áudio não suportam muting. Nota Para forçar a reprodução silenciosa, desative todas as faixas de áudio. Isso é mais eficiente e confiável do que o mudo." No meu caso, estou utilizando o HDMI. Minha duvida é sobre como desativar as faixas de audio. Alguém saberia ajudar?
  25. felk_fel@hotmail.com

    O programa compila mas fecha na mesma hora

    Boa tarde a todos!De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?https://www.youtube.com/watch?v=cFBJSS5yTN8Agradeço pela atenção.
×

Important Information

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