manoelps

Pessoal estou com a seguinte dúvida, é possível ter acesso aos ramais internos de um cliente e se sim, qual o equipamento que possibilita fazer este processo? deixa eu explicar melhor: Quero que assim que receber uma ligação de um determinado cliente eu possa pegar esta ligação e transferir entre os ramais no PABX do cliente, como se eu estivesse na mesma rede de telefonia, como vou ter pessoal trabalhando no cliente, quero poder direcionar as ligações para a pessoal responsável, em anexo segue imagem com descritivo do cenário para melhor entendimento. Desde de já agradeço a colaboração.

Olá pessoal! Estive pesquisando hoje sobre processo de envio de imagens para um servidor usando delphi, fiz exemplo com sockets, funcionou, mas a velocidade não me agradou muito. Preciso enviar cerca de 5 imagens por segundo cada imagens com cerca de 25KB, estive vendo possibilidades com sockets, indy, servidor datasnap. Estive vendo até a possibilidade de converter a imagem em base64 para a transferência. Alguém teria alguma dica de outros métodos e ou protocolos para este tipo de transferência?

@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:

Hi galera! Então estive pesquisando metodos para comparar duas imagens utilizando php, tive certa dificuldade em achar algo simples, mas achei, estou compartilhando aqui para que, possa ajudar a outras pessoas que venham a ter esta mesma duvida. <?php$image1 = "nova_foto.jpg";$image2 = "nova_foto2.jpg";$md5image1 = md5(file_get_contents($image1));$md5image2 = md5(file_get_contents($image2));if ($md5image1 == $md5image2) { echo "Imagens Iguais";}else{ echo "Imagens DIFERENTES";}?> Bem é isso aê ... simples e me serviu por enquanto, há outros metodos como por exemplo pelo imagick, tambem um tanto quanto simples, segue link abaixo do site php.net Imagick::compareImages,

Po ae .. show de bola .. eu havia chegado nesta classe ai depois que fiz o topico (continuei pesquisando) no blog do Matheus, usei assim: <?phprequire('lib/WideImage.php'); // Chama o arquivo com a classe WideImage$image = WideImage::load('sample.jpg'); // Carrega a imagem a ser manipulada//$image = $image->crop(10, 20, 110, 120); // Corta a imagem (Argumentos: X1, Y1, X2, Y2)// Faz um quadrado da posição [X1;Y1] até [X2;Y2]$image = $image->crop(0, 0, 100, 150); // Corta a imagem (Argumentos: X1, Y1, X2, Y2)// Faz um quadrado da posição [X1;Y1] até [X2;Y2]$image->saveToFile('nova_foto.jpg'); // Salva a imagem em um arquivo (novo ou não)?> Funcionou redondinho. Valeu .. obrigado...

Salve salve galera !!! Então pessoal estou tomando uma coça de uma aplicação que preciso fazer. Preciso pegar uma imagem e dividir em 16 partes iguais, a partir do inicio, as pequenas figuras da imagem precisam ficar separadas (100x150 px). Segue imagem abaixo, tentei usando a biblioteca GD, a classe resize-class (segue abaixo o que estou usando). Imagem: <?php // *** Include the class include("resize-class.php"); // *** 1) Initialise / load image $resizeObj = new resize('minha_imagem.jpg'); // *** 2) Resize image (options: exact, portrait, landscape, auto, crop) $resizeObj -> resizeImage(100, 150, 'crop'); // *** 3) Save image $resizeObj -> saveImage('imagem_final.jpg', 100);?> Usando o código acima fica igual a que esta em anexo, não fica como deveria, todo bonitinho rsrsrs. Eu gostaria se possível, especificar as posições x e y que eu poderia cortar, tipo: cortar a partir de 100px do inicio da imagem cortar de 100x150px e depois pegar a partir de 25px cortar novamente 100x150px, ja gerando uma nova imagem. O basico da ideia da logica de criar um laço FOR de tamanho 16 e fazer o corte consigo criar tranquilo.

Para pegar o retorno de um envio de dados via GET existe o $_GET assim como para pegar via post existe o $_POST: LINK: contrato_finalizado.php?id=10 <?php$id = $_GET['id']; //Pega a informação passada na variavel id pela urlecho $id; // Exibe o conteudo que foi pego?>

Não entendi: "estou precisando acessar o cmd como administrador porém preciso de uma linha de comando ... " Como assim?

Olá a todos! Então ... Senhores... Tenho uma tabela que é gravado o id do usuário e o id das fotos associadas a este usuário, como podem ver no anexo. Estou no seguinte dilema, preciso exibir 3 das fotos do usuário com ID 1, depois preciso exibir na mesma página as demais fotos que este usuário tenha postado, mas não posso repetir estas 3 que eu já havia exibido. Alguém sabe se na consulta select se eu consigo filtrar por exemplo para exibir a partir do terceiro item encontrado no banco de dados? Para melhor entendimento (esta parte de ocultação e exibição já funciona): São duas consultas, uma vai retornar as 3 fotos e estas ficarão visíveis em uma div. Quando o usuário clicar na opção de expandir, vai ser mostrado as demais que estava ocultas em outra div. Segue select que estou usando: $buscaCapa = mysql_query("SELECT capaalbum,photo,legenda,idalbum FROM tbalbum WHERE iduser='$profile' and excluir != '1' and capaalbum = '0'"); Tentei criar um array com os IDs das fotos que já foram exibidas e não exibi-las na minha outra consulta, mas fracassei kkkkkk _________________________________________//______________________________________________ Show ... Pessoal conseguir resolver .... dei mais uma pesquisada pelos comandos SQL e pelos testes preliminares acho que consegui resolver o problema, segue abaixo a solução que usei para que se caso alguém tenha alguma duvida e precise usar futuramente. Fiz a seguinte alteração da minha consulta SQL anterior: ANTES: $buscaCapa = mysql_query("SELECT capaalbum,photo,legenda,idalbum FROM tbalbum WHERE iduser='$profile' and excluir != '1' and capaalbum = '0'"); DEPOIS: $buscaCapa = mysql_query("SELECT capaalbum,photo,legenda,idalbum FROM tbalbum WHERE iduser='$profile' and excluir != '1' and capaalbum = '0' LIMIT 3,100"); Adicione o LIMIT 3,100, o que isso faz? Isso ai vai exibir os 100 registros a partir do terceiro item encontrado, funcionou redondinho, sabendo que nenhum usuário vai ter permissão de adicionar mais de 100 imagens no site.

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.