Jhonas

não testei, mas tente ai if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then begin vDefaultIPGateway := ArrayToVarArray(['192.168.1.100']); vGatewayCostMetric := ArrayToVarArray1([1]); FWbemObject.ReleaseDHCPLease(); FWbemObject.EnableDHCP(); FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric); end; abraço

veja se este link te ajuda http://scriptbrasil.com.br/forum/index.php...st&p=634163 abraço

andei pesquisando e achei este exemplo mais não sei como por a funcionar Não basta somente copiar, tem que entender ... ~veja a correção no código unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ComObj, ActiveX, StdVcl; // <<< faltou function ArrayToVarArray(Arr : Array Of string):OleVariant; overload; var i : integer; begin Result :=VarArrayCreate([0, High(Arr)], varVariant); for i:=Low(Arr) to High(Arr) do Result[i]:=Arr[i]; end; function ArrayToVarArray1(Arr : Array Of Word):OleVariant;overload; // << nome da função var i : integer; begin Result :=VarArrayCreate([0, High(Arr)], varVariant); for i:=Low(Arr) to High(Arr) do Result[i]:=Arr[i]; end; procedure SetStaticIP; const wbemFlagForwardOnly = $00000020; var FSWbemLocator : OLEVariant; FWMIService : OLEVariant; FWbemObjectSet: OLEVariant; FWbemObject : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; vIPAddress : OleVariant; vSubnetMask : OleVariant; vDefaultIPGateway : OleVariant; vGatewayCostMetric : OleVariant; begin FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', ''); FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=True','WQL',wbemFlagForwardOnly); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; while oEnum.Next(1, FWbemObject, iValue) = 0 do begin vIPAddress := ArrayToVarArray(['192.168.1.141']); vSubnetMask := ArrayToVarArray(['255.255.255.0']); if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then begin vDefaultIPGateway := ArrayToVarArray(['192.168.1.100']); vGatewayCostMetric := ArrayToVarArray1([1]); // << alterar aqui FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric); end; VarClear(vIPAddress); VarClear(vSubnetMask); VarClear(vDefaultIPGateway); VarClear(vGatewayCostMetric); FWbemObject:=Unassigned; end; end; procedure TForm1.Button1Click(Sender: TObject); begin SetStaticIP; end; end. abraço

O problema é que estou a conseguir inseri-los, mas em linhas separadas e não numa só como pretendia. isso tem haver com o tamanho maximo que voce definiu para cada campo <td width="225">Número Processo</td> <td width="225">Local da Obra</td> <td width="225">Nome do Requerente</td> <td width="225">Nome do Proprietário</td> <td width="225">Empreiteiro</td> <td width="225">Técnico Responsável</td> <td width="225">Contactos</td> abraço

veja http://infomoz.net/19/ abraço

voce não informou qual linguagem de programação esta usando uma das formas é ler a string ( 01KG000008000100000Arroz ) e na posição encontrada do KG fazer a substituição por 000 em delphi seria procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := '01KG000008000100000Arroz'; if pos('KG',s) > 0 then begin s[pos('K', S)] := '0'; s[pos('G', S)] := '0'; end; showmessage(s); end; abraço

Não é a linguagem que vai determinar a homologação ou não do sistema e sim se ela atende a todos os requisitos impostos para o seu correto funcionamento. E também não sei se o delphi me dá a mobilidade da pessoa saber o que acontece em relação as vendas da loja de qualquer local em qualquer horário. o delphi te dá essa mobilidade, porque as versões mais atuais do delphi, tem componentes de acesso a provedores web e muito mais abraço

O setfocus muda o foco da interface do usuário para vários tipos de controles (widgets) que podem receber eventos de teclado ou mouse. Pode ser caixas de texto, caixas de combinação, listas, botões, janelas, etc. exemplo http://www.macsystemeduc.com.br/livros/ex8/exemplo8.html abraço

veja https://www.scriptbrasil.com.br/forum/lofiv...hp/t114397.html abraço

Não é possível recuperar procedimentos metadados armazenados para a rotina '{0}'. Quer conceder o privilégio SELECT para mysql.proc para este usuário ou utilizar os corpos de procedimento = false", com sua seqüência de conexão. use o PHP Admin para configurar corretamente o MYSQL no provedor ... existe um previlegio que voce deve dar ao IP do usuario ( ou melhor para cada usuario que for acesar esse banco ) abraço

no campo texto do mysql não, mas na hora de mostrar sim depende da linguagem de programação que estiver usando abraço

veja no manual do mysql http://dev.mysql.com/tech-resources/articl...vbnet-apps.html abraço

veja http://social.msdn.microsoft.com/Forums/pt...8b-db94a79185f8 abraço

nesse link tem http://www.4shared.com/rar/y36cEaOa/ACOUGU...DO_SOUZA_-.html OBS: na net existem outros abraço

a limitação está no proprio python ... utilize outro metodo para fazer os inserts na tabela para comprovar abraço

amigo, isso acontece quando tem alguma dll corrompida... a solução é desisntalar o mysql, limpar os registros no windows ( use o CCleaner ), e reinstalar o mysql se o problema voltar, voce deve trocar a versão do mysql ou conseguir outra copia da versão atual na net abraço

veja http://www.devmedia.com.br/post-15399-Tuto...rsao-01-03.html abraço

voce precisa desinstalar o delphi XE, limpar os registros no windows ( use o CCleaner ou outro ) e depois instala-lo novamente abraço

essa versão do DSPack funciona no D2007 http://dspack.googlecode.com/files/dspack2.3.4.zip abraço

baixe o drive desse link http://www.driveridentifier.com/scan/drive...8086%26DEV_1C3A abraço

depende de qual área voce gosta uma linguagem muito boa e de facil aprendizado seria o Delphi ( prog administrativos e comerciais ) para jogos use o Java para celular aprenda o Android ou o J2CL para internet aprenda PHP, HTML , etc e muitos outros abraço

erro: Otimização terminada: nenhum ponto viável encontrado. Isso não é um erro, é sim uma mensagem de saída que indica que o fmincon não foi capaz de encontrar um ponto viável (um valor do vetor x que satisfaça todas as restrições). Agora, isso significa que ou o problema é realmente inviável, ou que é viável, mas o solver não foi capaz de encontrar um ponto viável. Você pode querer tentar um outro algoritmo em fmincon para comparar resultados. options = optimset ('Algoritmo', 'ponto-interior'); e chamar fmincon como você fazer a seguir. É também uma boa idéia para definir a opção de exibição para "iter" para ver mais detalhes da execução. A seção Quando o Solver falha na documentação fornece orientação sobre os próximos passos que você pode querer tentar: http://www.google.com/url?sa=D&q=http:...-N1O2n-IpcTMWtw ou veja a documentação do mathworks http://www.mathworks.com/help/toolbox/gads/ga.html abraço

DBText.alligment.lines = mmTotal.aligmment.lastline. Eu creio que a lógica está correta, mas sintaxe que tenho certeza que não. Inclusive nem foi compilado. isso não existe ....a propriedade ( Align - Alinhamento ) de um DBGrid refere-se a posição do DBGrid em relação ao Form agora se voce quer jogar o conteudo de um campo do DBGrid em um Memo ( creio que seja isso ) existem outras maneiras se for para linhar o conteudo do campo do DBGrid, use a propriedade ( Alignment do campo ) para jogar o conteudo do campo a direita, no centro ou a esquerda dentro da sua célula OBS: Use sempre um exemplo, para mostrar extamente o que voce esta querendo abraço

imagine que voce tenha um campo chamado valor1 e outro campo chamado valor2 de uma tabela de chamada compras para passar o valor1 para o valor2 se estiver usando um Table Table1.Valor2.Value := Table1.Valor1.Value; OBS: leia essas apostilas http://mreis.info/FIJ/download/delphi5.pdf http://www.micropic.com.br/paginadecliente...de%20delphi.pdf abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...hlite=etiquetas abraço