Jhonas

a versão que acompanha o meu delphi tem restrição quanto a isso ... http://127.0.0.1:1262/ IP Restriction In the evaluation version, IntaWeb applications only listen on the IP 127.0.0.1. No requests from other IP addresses will be answered entretando, voce deve olhar o manual para saber se isso é possivel na sua versão http://downloads.atozed.com/intraweb/IntrawebManual.pdf abraço

baixe e instale a dll https://www.google.com.br/?gws_rd=ssl#q=dll+inpout32 abraço

ok... basta fazer isso procedure TForm1.Image1DblClick(Sender: TObject); begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; abraço

ok... fiz alguns testes aqui percebi que ao transportar o executavel para outra maquina, ele vai rodar localmente tambem entretanto, alterei o somente o caminho para o banco de dados, que está em outro micro na rede e funcionou obs: mude o caminho para o banco de dados nos componentes de acesso ao banco de dados ( caminho da rede ), mas não altere o link http://127.0.0.1:1488/$/start tente dessa maneira abraço

basta voce colocar o componente TIMage no form exemplo abraço para imagem tipo png voce deve baixar e instalar o componente https://www.google.com.br/search?q=colocar+png+no+form+delphi&ie=utf-8&oe=utf-8&client=firefox-b&gws_rd=cr&ei=B4iGWP_KGMOGwgSLrKzoDg#q=pngimage+delphi+download abraço

quando voce roda localmente o endereço seria tipo isso http://127.0.0.1:1488/EXEC/0/6C26AF00CBE5CA71DBE0E440 quando voce roda pela rede, o endereço seria tipo isso http:// 192.168.6.10:1488/EXEC/0/6C26AF00CBE5CA71DBE0E440 lembrete: o executavel gerado pelo delphi deve ser colocado na outra maquina e voce deve colocar o endereço ip da maquina onde esta o banco de dados abraço

ok... veja se é isso que esta querendo procedure TForm1.Button1Click(Sender: TObject); var Hora, Min, Sec, MSec : Word; begin DecodeTime(Now, Hora, Min, Sec, MSec); Label1.Caption := FormatDateTime('hh:mm:ss',Now)+ ':'+FormatFloat('0000000',MSec*999999); end; resultado 23:58:11:108999891 23:58:28:936999063 23:58:41:14999985 abraço

qual a versão do seu delphi ? está usando algum banco de dados ? qual ? qual é o caminho da rede ?

no MYSQL a função MICROSECOND(expr) Retorna os microsegundos da expressão time ou datetime expr como um número no intervalo de 0 a 999999. Se expr é um tempo sem microssegundos, zero é retornado, enquanto se expr é uma data sem tempo, zero com um aviso é retornado. na versão 5.4 SELECT CURTIME(4); --> 22:45:48 Talvez as versões mais recentes do MYSQL retorne os microsegundos SELECT CURTIME(4); --> 10:11:12.3456 porque voce precisa dos microsegundos ? MYSQL versão 5.7 http://dev.mysql.com/doc/refman/5.7/en/fractional-seconds.html abraço

veja na foto que a posição onde esta marcado speak é onde o buzzer fica mas observe tambem que tem posição certa para colocar ( polo positivo e polo negativo ) se voce inverter a posição não funciona fio vermelho no polo positivo e fio preto no polo negativo abraço

mensagem a confirmar: as ferramentas do android sdk são necessarias, voce gostaria de baixar e instalar automaticamente ? voce deve baixar e instalar com relação ao erro code 3 ... vejas as respostas desse link http://pt.stackoverflow.com/questions/103333/erro-compilar-android-delphi-10-no-windows-10 a configuração do delphi Berlin é muito parecida com o dephi 2010 https://tsanthiago.wordpress.com/2016/05/27/deploy-delphi-10-seattle-emulador-android-n/ como configurar o delphi Berlin https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=android sdk delphi berlin OBS: voce trocou a versão do Java tambem ? abraço

veja nesse link o seu exemplo .... funções do MYSQL para data e hora http://www.w3resource.com/mysql/date-and-time-functions/mysql-date_format-function.php OBS: dividindo milissegundos por 1000 para reduzir a segundos, os microssegundos serão 0 para que voce precisa dos microsegundos ? abraço

fica assim procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin memo4.Clear; for i := 0 to Memo2.Lines.Count-1 do begin memo4.Lines.Append(memo2.Lines.Strings(i)+'/'+ memo3.Lines.Strings(i)); end; end; obs: depois do strings use use chaves ....na edição esta sumindo o caracter abraço

correção do link http://www.cplusplus.com/forum/windows/21620/ abraço

fiz um teste com outra versão do dephi, e o TMemo funciona como deveria coloquei linhas ultrapassando o conteudo do memo, e a barra de rolagem funciona como deveria retornando o cursor usando a tecla Backspace, o cursor fica no memo e o foco tambem abraço

veja esses links https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=milisegundos+para+data+mysql abraço

veja o meu post anterior

pelo que voce relatou, creio que seja bug de componente do seu delphi XE8, pois vi em outros foruns o mesmo problema. no site da embarcadeiro, é relatado que o TMemo é nativo do IOs, mas que ele deve funcionar normalmente na maquina de desenvolvimento se não funciona nem na sua maquina, então , talvez voce devesse pensar em desinstalar o delphi, limpar os registros do windows ( use o CCleaner ou outro ) e depois instalar o dephi novamente. tente ver se o mesmo código funciona em outra versão do delphi abraço

ok... voce esta usando o delphi XE8 ... quando voce compila o programa e executa ele no seu micro, acontece isso tambem ? o Delphi XE8 tem muitos bugs ... voce já fez o update para resolver esses Bugs ? https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=delphi+xe8+bug+update+1+download abraço

acontece a mesma coisa, se voce colocar o programa em outro tipo de celular ?

ok... pelos meus testes, o problema não está no componente ... parece que é o teclado faça um teste simples para verificar .. digite apenas uma palavra da tela e tente voltar ao inicio usando o Backspace se ainda assim no segundo toque o cursor sumir, então tente as configurações do teclado no celular ( veja tipos de teclado, varrimento do teclado, configurações de escrita, tempo de reconhecimento...etc ) faça algumas alterações nas configurações e veja o que acontece. abraço outra opção .... coloque no evento OnChange do Memo procedure TForm1.Memo1Change(Sender: TObject); begin memo1.SetFocus; end;

confirme se é no 2º toque de retorno do caracter é que some o foco

nesse link tem exemplos de como usar o componente IBQuery https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=ibquery exemplos abraço

voce colocou um campo CODIGO para cada uma de suas tabelas... ou seja, pelo mesmo código voce pode trazer todos os registros relacionados de todas as tabelas no entanto, voce deve mudar o componente de acesso a essas tabelas pelo componente IBQuery .... como te mostrei no post anterior voce vai reduzir muito o código e vai agilizar a pesquisa na sua tabela Produtos voce deve colocar mais um campo para controle ( TIPO_VENDA ) onde voce vai colocar o tipo ( Custo, Varejo, Atacado e Promoção ) ou ( 0,1,2,3 ) para que quando voce selecionar o tipo no combobox , voce passe o tipo como parametro para a pesquisa exemplo procedure TForm1.ComboBox1Change(Sender: TObject); begin IBQuery1.Active := false; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('Select * from tbOrcaFilho where CODIGO = :COD and TIPO_VENDA = ' + inttostr(ComboBox1.ItemIndex )); /// SE FOR NUMERO IBQuery1.Params[0].AsInteger := 1; /// VALOR DO CÓDIGO DO PRODUTO ... PODE SER PASSADO ATRAVES DE UM EDIT IBQuery1.Active := true; end; Depois que os registros estiverem selecionados, voce pode mostrar no Form através de DBedits ou em um DBgrid OBS: Select * from Tabela ( vai trazer todos os campos das tabelas ) Select nomecampo1, nomecampo2, nomecampo3 from tabela ( vai trazer apenas os nomes dos campos que voce especificar ) abraço

seu código seria reduzido a isso procedure TForm1.ComboBox1Change(Sender: TObject); begin IBQuery1.Active := false; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('Select * from tbOrcaFilho where CODIGO = 1 and '+ ' TabeladePreço = ' + inttostr(ComboBox1.ItemIndex )); IBQuery1.Active := true; end; ou passando o valor do código por parametro procedure TForm1.ComboBox1Change(Sender: TObject); begin IBQuery1.Active := false; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('Select * from tbOrcaFilho where CODIGO = :COD and '+ ' TabeladePreço = ' + inttostr(ComboBox1.ItemIndex )); IBQuery1.Params[0].AsInteger := 1; /// OU PODE PEGAR O VALOR DE UM EDIT IBQuery1.Active := true; end;