Jhonas

Veja esses links https://www.google.com.br/search?q=pegar+localização+pelo+ip+php&o que=pegar+ipe+lo+php&gs_l=psy-ab.1.2.0i13k1j0i8i13i30k1l2.15613.16880.0.22765.4.4.0.0.0.0.128.487.0j4.4.0....0...1.1.64.psy-ab..0.3.368.8gaXeWfSl6M https://www.google.com.br/search?q=pegar+ip+php&o que=pegar++ip+php&gs_l=psy-ab.1.0.0j0i7i30k1l3.44982.44982.0.50839.1.1.0.0.0.0.118.118.0j1.1.0....0...1.1.64.psy-ab..0.1.117.FxQ_UGjhZZE https://www.google.com.br/search?q=pegar+geolocalização+com+php&o que=pegar+geo+php&gs_l=psy-ab.1.1.0i13k1j0i7i30k1j0i8i13i30k1l2.20080.22056.0.26681.5.5.0.0.0.0.136.614.0j5.5.0....0...1.1.64.psy-ab..0.3.388.IVWc_9I7maY abraço

ok... então voce vai precisar de conexão remota a ip externo veja esses links https://www.google.com.br/search?q=conexão+remota+ip+externo&o que=conectar+ip+re&gs_l=psy-ab.1.1.0i22i30k1l4.211924.216821.0.223398.14.14.0.0.0.0.135.1508.0j12.12.0....0...1.1.64.psy-ab..2.12.1501...0j0i131k1j0i67k1j0i10k1j0i19k1j0i10i19k1.Vxi2B7MWLSI abraço

Solução em outro tópico

ok... que bom que voce entendeu de primeira... rs abraço

voce quer selecionar somente pastas ou um banco de dados ? faça um teste com o componente TOpenDialog procedure TForm1.FormActivate(Sender: TObject); begin if OpenDialog1.Execute then showmessage(OpenDialog1.FileName); end; selecione > Meus locais de rede e veja se voce consegue escolher um arquivo da rede ( que não seja do seu proprio micro ) abraço

veja esse exemplo: http://www.codenewsfast.com/cnf/article/0/permalink.art-ng2027q16792 http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Printing_from_a_FireMonkey_Application veja outros exemplos no proprio site da embarcadero http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Printer http://docwiki.embarcadero.com/CodeExamples/Tokyo/e/index.php?title=Category:Delphi&pagefrom=InflateRect+(Delphi)#mw-pages abraço

já experimentou pegar o tamanho da folha padrão na impressora ? ( Width e Length ) ou antes da impressão setar o tamanho da folha ? ( independente do que estiver setado como padrão )

não precisa reinventar a roda ... o delphi tem o seu proprio instalador https://www.google.com.br/search?site=&source=hp&q=installshield+wizard+download&o que=installshiel&gs_l=psy-ab.1.3.0l4.1683.7241.0.11386.12.12.0.0.0.0.580.1794.0j7j1j5-1.9.0....0...1.1.64.psy-ab..3.9.1786...0i131k1.ZfA2wxoW4WI abraço

exemplo: http://www.devmedia.com.br/forum/pegar-tamanho-papel-impressora-padrão/274451 abraço

se voce olhar o código do exemplo que te passei vai encontrar isso: APalavras : array of TRPalavras; Esta varável irá descender do tipo TRPalavras criado anteriormente. Acessando agora o evento OnClick do botão, adicione o código a seguir, o qual será responsável por armazenar no array quais as palavras e respectivas cores que devem ser destacadas no texto a ser digitado no componente RichEdit. { Adicionando as palavras a lista } SetLength( APalavras, Length( APalavras )+1 ); APalavras[ High( APalavras ) ].DS_PALAVRA := Edit1.Text; APalavras[ High( APalavras ) ].VR_COR := ColorBox1.Selected; APalavras[ High( APalavras ) ].ESTILO := [fsBold]; OBS: como o programa vai saber que a palavra que voce acabou de digitar tem mudar de cor ? voce pode ter essa palavra em um array ( ai assim que voce digitar essa palavra ela muda de cor) ... veja o exemplo do link acima, ou pode marcar com o mouse e faze-la mudar de cor. tem muitos exemplos na net de como fazer isso https://www.google.com.br/search?q=richedit+delphi&o que=richedit&gs_l=psy-ab.1.0.0l4.8355867.8357684.0.8360028.8.8.0.0.0.0.161.886.0j7.7.0....0...1.1.64.psy-ab..1.7.883...0i131k1j0i67k1.ln4TKE5VGBw abraço

Isso não vai ser tão trivial de se fazer: voce vai ter que abrir o registro principal da conexão de rede ' HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\' depois voce deve criar uma variavel tipo TStringList para armazenar os nomes das chaves a lista que começa com {4D36E972-E325-11CE-BFC1-08002BE10318} use um comando For ( Loop ) para varrer todos os valores dessas chaves depois voce deve abrir novamente o registro do windows, mas agora adicionando o valor das chaves que estão no TStringlist ... dessa forma voce vai obter em outra variavel tipo TStringlist o valor das SubChaves ( {01DC30F1-64F-4A47-98C4-3171498119F7} ) depois voce deve abrir novamente o registro do windows, mas agora adicionando o valor das chaves que estão no 1º TStringlist + o valor das chaves que estão no 2º TStringlist... dessa forma voce vai obter em outra variavel tipo TStringlist o valor das proximas SubChaves ( nesse caso voce já tera a SubChave Connection ) agora voce já tem toda a path do registro HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\{01DC30F1-64F-4A47-98C4-3171498119F7}\Connection nesse ponto bastara voce ler o valor de "Name" para obter o nome conexão da rede Conexão local 3 OBS: Se isso deu um nó na cabeça e voce não tem nem idéia de como começar, leia esse artigo... tem tudo o que voce vai precisar para resolver essa dúvida. procure pelo método reg.GetKeyNames e reg.GetValueNames. http://www.forum-invaders.com.br/vb/showthread.php/14762-Manipulando-o-registro-do-Windows-Delphi?s=aada232bfdf47ec5aea40950903f8df4 abraço

Veja esse exemplo: http://maikelscheid.blogspot.com.br/2009/01/destacando-palavra-no-richedit.html abraço

nesses exemplos, voce procura uma palavra e depois muda a cor dela basta voce entender o código e fazer as modificações para o seu uso unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) RichEdit1: TRichEdit; procedure RichEdit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RichEdit1Change(Sender: TObject); var SelStartBak: integer; SelLengthBak: integer; SelStartAux: integer; begin SelStartBak := RichEdit1.SelStart; SelLengthBak := RichEdit1.SelLength; RichEdit1.SelectAll; RichEdit1.SelAttributes.Color := clBlack; SelStartAux := RichEdit1.FindText('Pizza', 1, Length(RichEdit1.Text), [stWholeWord]); while SelStartAux > -1 do begin RichEdit1.SelStart := SelStartAux; RichEdit1.SelLength := 5; // numero de caracteres da palavra RichEdit1.SelAttributes.Color := clRed; Inc(SelStartAux, 5); // posicionar no inicio da palavra SelStartAux := RichEdit1.FindText('Pizza', SelStartAux, Length(RichEdit1.Text) - SelStartAux + 1, [stWholeWord]); end; RichEdit1.SelStart := SelStartBak; RichEdit1.SelLength := SelLengthBak; end; end. =================================================================================== outro exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) RichEdit1: TRichEdit; Label1: TLabel; procedure RichEdit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; S1, S2 : string; implementation {$R *.dfm} procedure TForm1.RichEdit1Change(Sender: TObject); function MyPos(stringtofind, stringtosearch: string; CaseInsensitive: boolean = true): integer; begin if CaseInsensitive then begin stringtofind := LowerCase(stringtofind); stringtosearch := LowerCase(stringtosearch); end; Result := Pos(stringtofind, stringtosearch); end; procedure TrocarCorPalavra(Palavra: string; Cor: TColor); var SelStartBak: integer; SelLengthBak: integer; SelStartAux: integer; begin SelStartBak := RichEdit1.SelStart; SelLengthBak := RichEdit1.SelLength; RichEdit1.SelAttributes.Color := clBlack; SelStartAux :=Pos((Pchar(palavra)), RichEdit1.Text)-1; while SelStartAux > -1 do begin RichEdit1.SelStart := SelStartAux; RichEdit1.SelLength := Length(Palavra); RichEdit1.SelAttributes.Color := Cor; Inc(SelStartAux, Length(Palavra)); SelStartAux := RichEdit1.FindText(Palavra, SelStartAux, Length(RichEdit1.Text) - SelStartAux + 1, [stWholeWord]); end; RichEdit1.SelStart := SelStartBak; RichEdit1.SelLength := SelLengthBak; end; begin if mypos('pizza',RichEdit1.Text,true) > 0 then TrocarCorPalavra('pizza', clRed); if mypos('pascal',RichEdit1.Text,true) > 0 then TrocarCorPalavra('pascal', clBlue); if mypos('delphi',RichEdit1.Text,true) > 0 then TrocarCorPalavra('delphi', clAqua); RichEdit1.SelAttributes.Color := clBlack; end; end. abraço

Banco de dados diferentes não podem ter o mesmo nome... voce pode colocar o nome que quiser, desde que esse nome não tenha caracteres especiais OBS: arquivos de Backup não podem ter o mesmo nome voce deve diferencia-los ... exemplo Backup_12072017.mdb Backup_13072017.mdb Backup_14072017.mdb abraço

Por default ( Padrão ) os formulários devem estar com a codificação UTF-8 sei que algumas versões mais antigas do Lazarus tinham esse bug é facil saber ... crie um novo formulario e veja qual é a codificação padrão dele abraço

então procure no seu código ... ainda existe algum comando abrindo o banco de dados abraço

erro é "voce esta tentando abrir um banco de dados que já foi aberto" veja se outro programa esta com o banco de dados aberto. se estiver voce deve fecha-lo abraço

já havia sido respondido essa dúvida O ADOQuery não tem Params for wi := 0 to ParamCount - 1 do Parameters.Items[wi].value:=WPchave[wi]; abraço

procedure TForm1.FormActivate(Sender: TObject); begin if OpenDialog1.Execute then showmessage(OpenDialog1.FileName); end; OBS: onde está o comando showmessage, voce tem que colocar o nome da rotina que abre o arquivo para mostrar no editor de texto. outra dica: http://www.devmedia.com.br/forum/clicar-no-nome-do-arquivo-e-ele-abrir/278631 Seria tipo isso: Abrindo um arquivo pelo delphi usando o word unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtnrs; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; OleContainer1: TOleContainer; procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses ComObj; {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); var msword: variant; begin if OpenDialog1.Execute then begin msword:= CreateOleObject ('Word.Basic'); msword.appshow; msword.fileopen(OpenDialog1.FileName);// endereço e nome do arquivo a abrir end; end; end. abraço

problema está relacionado ao charset NONE. O Lazarus utiliza unicode (UTF-8) Converta tudo para UTF-8 - arquivos .PAS e .LFM devem estar codificados em UTF-8... - Banco de Dados tambem Para ver ou modificar a codificação de um arquivo fonte use: Botão direito no editor -> File Settings -> Encoding -> UTF-8 Mais informações sobre o assunto: http://wiki.lazarus.freepascal.org/Unicode_Support_in_Lazarus veja esse link ... tem outra solução: http://free-pascal-lazarus.989080.n3.nabble.com/Lazarus-UTF8-RTL-for-Windows-td4039361.html voce tambem pode tentar usar a função AnsitoUTF8 https://www.google.com.br/search?q=acentuação+no+lazarus&ei=Fdl3WcyQM8WowATc_4HoBA&start=10&sa=N&biw=1024&bih=668 abraço

tem muito material na net https://www.google.com.br/?gws_rd=ssl#q=arquitetura+de+gpus abraço

esse erro ocorre quando voce compila o seu projeto em uma versão diferente do delphi ao qual ele inicialmente foi criado. exemplo: se o projeto foi criado e compilado pelo delphi 7 e voce usar outra versão do delphi pode ocorrer esse erro.... pois o rxlib não é para essa versão. voce tem 2 souções: 1- compilar o programa na versão do delphi que ele foi criado. 2- trocar a versão do rxlib para o delphi seattle http://www.micrel.cz/RxLib/dfiles.htm abraço

faça um teste: compile o seu programa com o antivirus desativado depois execute o programa ative novamente o antivirus e veja o resultado abraço

veja essas opções: https://www.google.com.br/?gws_rd=ssl#q=dbf+to+postgres ou veja esse https://www.postgresql.org/docs/8.1/static/sql-copy.html abraço

voce tem que passar o nome do arquivo para o programa abrir .... como voce usa o seu programa ? voce abre uma caixa de dialogo para procurar um arquivo ?