manoelps

@Cristiano Zim os formulários são MDIChild e o caption dos mesmos vão possuir o mesmo nome exemplo: Eventos. Não entendi bem o que você quis dizer. Dei uma pesquisada e usando o FindWindow(), pelo menos pelo o que pesquisei ele pega o nome da aplicação e não das janelas filhas. e o ComponentCount contaria os componentes do formulario. Preciso abrir um form para cada registro da tabela, e para cada form passar o valor do ID do cadastro. Sendo que se chegar um novo cadastro (evento) precisa ser aberto outro formulario e passado o ID do evento que chegou. Em PHP fiz e tudo funciona lindamente, em Delphi que estou tendo dificuldades em montar a estrutura, consegui fazer funcionar com 3 (cadastros) eventos, mais que isso começa a abrir janelas com dados duplicados, o que não deveria, uma vez que coloquei dinamicamente para mostrar o ID no caption de cada form criado dinamicamente e coloquei para percorrer os forms filhos abertos e consultar o caption... bem louco ..

Olá pessoal! Estou desenvolvendo um sistema que precisa ser aberto um formulário fsMDIChild assim que chegar algum registro no banco de dados. 1- Fiz uma verificação se a quantidade de registros na tabela é diferente de zero 2- Fiz um laço FOR varrer todo a tabela. 3- Verifico se a quantidade de Forms MDIChild criados é menor que a quantidade de registros localizado na tabela 4- Verifico se a quantidade de forms criado é maior que 1, se for eu crio o formulário, dou um next na query da tabela e crio o formulário passando os parâmetros para o mesmo, se não crio o formulário passando os parâmetros (primeiro registro 1 formulário). Funciona lindamente, desde que todos sejam criados de uma única vez, se os formulários estiverem abertos e chegar um novo registro, o formulário é criado, mas é passado os dados do primeiro registro na tabela. Tentei colocar o ID de cada registro no caption do formulário e usar um laço for para percorrer as janelas MDIs e comparar com os IDs do banco e só fazer os que não estiverem abertos, mas não rolou. Tentei criando um array também, onde cada ID da tabela era armazenado no array e feito uma pesquisa e se não tiver no array cria o formulário, mas não deu. Alguém já precisou fazer ago assim ou tem alguma dica que possa me ajudar? O codigo abaixo está dentro de um Timer, se alguém conhecer outra forma seria interessante. if( QueryEventos.RecordCount <> 0) then begin for i := 0 to QueryEventos.RecordCount - 1 do begin if (MDIChildCount <QueryEventos> 0)then begin Application.CreateForm(TFormEventos,FormEventos); FormEventos.Caption := IntToStr(QueryEventos.FieldValues['id']); FormEventos.Show; QueryEventos.Next; end//if(MDIChildCount > 1)then else begin Application.CreateForm(TFormEventos,FormEventos); FormEventos.Caption := IntToStr(QueryEventos.FieldValues['id']); FormEventos.Show; QueryEventos.Next; end;//FIM ELSE - if(MDIChildCount > 1)then end;//FIM if (MDIChildCount < QueryEventos.RecordCount) then end;// FIM for i := 0 to QueryEventos.RecordCount - 1 do end;// FIM if( QueryEventos.RecordCount <> 0) then

Conseguiu resolver o problema?

Seria comunicação USB/SERIAL? Se for o Visual Studio já possui componente para isso, ja vem por padrão.

valeu pela força .. este problema já ocorre comigo a anos ... Ja testei em maquinas com windows xp, 7,8 Mesmo problema. Ocorre o mesmo problema se eu tentar executar um arquivo .bat

Segue: unit UnitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Grids, DBGrids, pngextra, ExtCtrls, StdCtrls, Mask, DBCtrls, DB, ADODB,Registry;type TFormMain = class(TForm) Panel1: TPanel; BtnConfig: TPNGButton; DBGrid1: TDBGrid; StatusBar1: TStatusBar; EditSearch: TEdit; Panel2: TPanel; EditRota: TEdit; Panel3: TPanel; EditRede: TDBEdit; BtnRota: TPNGButton; Query: TADOQuery; DSSearch: TDataSource; ConSearch: TADOConnection; Label1: TLabel; EditGateway: TDBEdit; TCorrigirRota: TTimer; procedure BtnConfigClick(Sender: TObject); procedure EditSearchChange(Sender: TObject); procedure EditRedeChange(Sender: TObject); procedure TCorrigirRotaTimer(Sender: TObject); procedure BtnRotaClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormMain: TFormMain;implementationuses UnitCadastro, UnitDM;{$R *.dfm}procedure TFormMain.BtnConfigClick(Sender: TObject);beginif FormCadastro= NIL then //cria o form se ele não foi criado aindabegin Application.CreateForm(TFormCadastro,FormCadastro); // cria o form FormCadastro.ShowModal; //exibe o formulárioend;end;procedure TFormMain.EditSearchChange(Sender: TObject);var Search:string;beginSearch:= EditSearch.Text; if (EditSearch.Text <> '')then begin Begin with Query do begin Close; SQL.Clear; SQL.Add('Select * from cliente where cliente LIKE' + QuotedStr('%' + Search + '%')); Open; end; //PInfo.Visible := true; end;end;end;procedure TFormMain.EditRedeChange(Sender: TObject);beginEditRota.Text := 'route add ' + EditRede.text + ' mask 255.255.255.0 ' + EditGateway.Text;end;procedure TFormMain.TCorrigirRotaTimer(Sender: TObject);beginEditRota.Text := 'route add ' + EditRede.text + ' mask 255.255.255.0 ' + EditGateway.Text;TCorrigirRota.Enabled := false;end;procedure TFormMain.BtnRotaClick(Sender: TObject);begin//WinExec(PChar('cmd /c route add 10.1.25.0 mask 255.255.255.0 192.168.0.254'),SW_SHOWNORMAL);//winexec('C:\rota.bat\',1);WinExec(PAnsiChar('cmd.exe /c route add 10.1.25.0 mask 255.255.255.0 192.168.0.254'), sw_normal); // Use /c para janela do prompt não permanecer aberta.end;end.

Boa tarde! Obrigado pelo retorno, já havia feito testes desta forma que você passou e ocorre o mesmo problema, já fiz este teste de abrir como administrador, inclusive estou usando o administrador local para desenvolver. Abrir a aplicação como administrador e ocorreu o mesmo problema, vide a foto em anexo. Havia observado que, caso eu faça um novo projeto e não salve ele abre o prompt sem problemas, e cria as rotas, mesmo sem abrir como administrador, caso eu salve ai ocorre o problema. Explicando a imagem que anexei, seria a janela de baixo quando clickei no botão criar rota, ela abriu a de cima e o prompt, o titulo do prompt ficou como sendo a linha de comando que deveria ser executado.

Então, EU faria assim, para ler, teria que comprar um conversor serial/usb. Montar o cabo serial RS232 conforme a pinagem do equipamento. Ao conectar no computador, deve ser criado uma por COM no gerenciador de dispositivos, ai so fazer a leitura da porta serial . Já sabe como é a passagem de dados? Quais são os dados, tipos, frequencia que são enviados?

Boa tarde galera! Estou tentando executar um comando direto no prompt de comandos, mas acaba executando uma instancia do meu programa e uma janela em branco do prompt de comandos, estou usando o codigo abaixo, preciso criar uma rota no desktop: WinExec(PChar('cmd /c route add 10.1.25.0 mask 255.255.255.0 192.168.0.254'),SW_SHOWNORMAL); Tentei fazer executando um arquivo.bat, mas ocorre o mesmo problema, tentei executar com ShellExecute e com WinExec Estranho que tentei esta linha de codigo e funciona (este comando desliga o computador): WinExec(PChar('command.com /c shutdown -s'),SW_HIDE); para executar o .bat usei este codigo: WinExec(PAnsiChar(PChar('c:\rota.bat')), SW_SHOWNORMAL); Estou usando o Windows 7. Alguem já passou por este problema?

Opa, post antigo, mas conseguiu Ler os dados?

Como já faz tempo que foi aberto o topico, devo perguntar: Já conseguiu resolve? Se ainda estiver precisando de ajuda ainda, só falar ai: Na imagem abaixo, exemplo de um software que fiz que se comunica com um atmega328 e ler as entradas e ou envia dados para controle das portas do mesmo:

Sei das regras e já li quando me tornei membro em anos anteriores e quando voltei a utilizar com um novo usuario em 2011, mas creio que seja a mania de querer ajuda de mais em algo onde domino, mas colocar um codigo pronto eu entendia como um exemplo que ai o usuário iria ler e entender como funciona... e fazer o seu.... mas beleza paro por aqui porque já fugiu do topico e isso é contra as regras kkkk

Dica: Faça uma conta sobre um valor x na mão e depois passe a logica que você criou para a linguagem de programação. Eu postaria o resultado, mas os moderadores tem a mania de apagar os meus postes kkkkk

Se for em rede, você pode compartilhar uma pasta, colocar a base de dados nela e direcionar o seu programa para se conectar nela via rede, ai você nao vai ter problemas. Caso queira colocar uma base de dados em cada computador é só setar um caminho padrão exemplo: c:\arquivos de programas\minha aplicacao\banco de dados ai seu programa sempre vai procurar a base de dados ai Outra forma é definir que a base de dados ficará na mesma pasta do executavel que é ./banco de dados.mdb se não me engano ai é só abrir o executavel, isso é se você for utilizar o componente padrão do delphi.