Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. vai encontrar a resposta nesse link https://theroadtodelphi.com/category/networking/ abraço
  2. outra pergunta, como você sabia que tinha um Tbuton ao ver a funçao veja o que voce escreveu então, obviamente voce não pesquisou corretamente, pois veria que faltou a chamada da função procedure TForm1.Button1Click(Sender: TObject); begin SetStaticIP; end; qual é o comando que salva os valores ??? FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric); pesquise um pouquinho mais e descrobrirá abraço
  3. veja http://ribafs.org/sites/antigos/access/dow...ntosRemover.zip abraço
  4. Jhonas

    Soma de horas

    use um pouco a imaginação e altere esse código e conseguirá o seu resultado http://scriptbrasil.com.br/forum/index.php...st&p=608698 abraço
  5. achei que voce iria saber como alterar, mas de qualquer modo eis a correção unit UIP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; 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; 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([Form1.Edit1.Text]); // <<<<<<<<<<<<< vSubnetMask := ArrayToVarArray(['255.255.255.0']); if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then begin vDefaultIPGateway := ArrayToVarArray([Form1.Edit2.Text]); // <<<<<<<<<<<< vGatewayCostMetric := ArrayToVarArray(['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. OBS: Veja que eu tirei uma das function para que não ocorrece o erro de tipos não correpondentes nessa lina FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric); abraço
  6. o programa abaixo tira uma foto da tela a cada 5 segundos com a informação da data e hora em que ocorreu o evento e grava no drive c:\ com extensão JPG CODE unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dia,mes,ano,hora,min,seg, mseg : word; ativa : integer = 0; implementation {$R *.DFM} uses Jpeg; // capturar uma foto da tela function CaptureScreenRect( ARect: TRect ): TBitmap; var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right - Left; Height := Bottom - Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY ); finally ReleaseDC( 0, ScreenDC ); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // ativar ou desativar o timer if ativa = 0 then begin Timer1.Interval := 5000; // tirar uma foto a cada 5 segundos da tela Timer1.Enabled := true; ativa := 1; end else begin Timer1.Enabled := false; ativa := 0; end; end; procedure TForm1.Timer1Timer(Sender: TObject); var bmp : TBitmap; jpeg : TJPEGImage; begin DecodeDate(now,ano,mes,dia); DecodeTime(now,hora,min,seg,mseg); // capturar uma foto da tela Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Screen.DesktopWidth,Screen.DesktopHeight))); Image1.picture.SaveToFile('c:\imagem'+'.bmp'); Bmp := TBitmap.Create; Bmp.LoadFromFile('c:\imagem.bmp'); jpeg := TJpegImage.Create; jpeg.Assign(bmp); // qualidade da foto quanto menor o valor, menor o tamanho do jpeg e menor qualidade jpeg.CompressionQuality:=30; // ideal jpeg.SaveToFile('C:\' + inttostr(dia) + '.' + inttostr(mes) + '.' + inttostr(ano) + '.' + inttostr(hora) + '.' + inttostr(min) + '.' + inttostr(seg) + '.jpg'); jpeg.Free; Bmp.Free; end; procedure TForm1.FormActivate(Sender: TObject); begin // iniciar o timer parado Timer1.Enabled := false; end; end. abraço
  7. ok... vamos a um exemplo pratico o programa abixo tira uma foto da tela a cada 5 segundos com a informação da data e hora em que ocorreu o evento unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dia,mes,ano,hora,min,seg, mseg : word; ativa : integer = 0; implementation {$R *.DFM} uses Jpeg; // capturar uma foto da tela function CaptureScreenRect( ARect: TRect ): TBitmap; var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right - Left; Height := Bottom - Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY ); finally ReleaseDC( 0, ScreenDC ); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // ativar ou desativar o timer if ativa = 0 then begin Timer1.Interval := 5000; // tirar uma foto a cada 5 segundos da tela Timer1.Enabled := true; ativa := 1; end else begin Timer1.Enabled := false; ativa := 0; end; end; procedure TForm1.Timer1Timer(Sender: TObject); var bmp : TBitmap; jpeg : TJPEGImage; begin DecodeDate(now,ano,mes,dia); DecodeTime(now,hora,min,seg,mseg); // capturar uma foto da tela Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Screen.DesktopWidth,Screen.DesktopHeight))); Image1.picture.SaveToFile('c:\imagem'+'.bmp'); Bmp := TBitmap.Create; Bmp.LoadFromFile('c:\imagem.bmp'); jpeg := TJpegImage.Create; jpeg.Assign(bmp); // qualidade da foto quanto menor o valor, menor o tamanho do jpeg e menor qualidade jpeg.CompressionQuality:=30; // ideal jpeg.SaveToFile('C:\' + inttostr(dia) + '.' + inttostr(mes) + '.' + inttostr(ano) + '.' + inttostr(hora) + '.' + inttostr(min) + '.' + inttostr(seg) + '.jpg'); jpeg.Free; Bmp.Free; end; procedure TForm1.FormActivate(Sender: TObject); begin // iniciar o timer parado Timer1.Enabled := false; end; end. end. OBS: voce pode fazer a adaptação ao seu código ou usar dessa maneira abraço
  8. Jhonas

    Somar DBgrid

    no link que te informei tem a resposta usando sql mas como voce é iniciante que tal ler algumas apostilas primeiro ? http://www.apostilando.com/sessao.php?cod=13 abraço
  9. basta adaptar essa função ao seu código function BMPtoJPG (var BMPpic, JPGpic: string):boolean; var Bitmap: TBitmap; JpegImg: TJpegImage; begin Result:=False; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile(BMPpic); JpegImg := TJpegImage.Create; try JpegImg.Assign(Bitmap); JpegImg.SaveToFile(JPGpic); Result:=True; finally JpegImg.Free end; finally Bitmap.Free end; procedure TForm1.Button1Click(Sender: TObject); begin BMPtoJPG('meubitmap.bmp','meujpeg.jpg') end; abraço
  10. resposta no segundo post desse link http://www.progdigy.com/forums/viewtopic.php?t=4280 abraço
  11. Para instalar pacotes de componentes (Packages, arquivos com a extensão *.DPK), execute o Delphi e feche o projeto, acesse o menu 'File' e clique na opção 'Open', abra o arquivo que contém os componentes. Dê Ok e depois é só clicar en 'install'. Pronto seu pacote de componentes será instalado. primeiro para o DSPack_D7.dpk depois para o DSPackDesign_D7.dpk esses pacotes são para o delphi 7 mas funcionam do 2007 tambem abraço
  12. Jhonas

    Somar DBgrid

    basta adptar o código para que a coluna Valor Total receba o resultado do calculo abraço
  13. com certeza .... porque nos registros podem ter outros nomes ligados ao software abraço
  14. http://dspack.googlecode.com/files/dspack2.3.4.zip o pacote está completo, não falta arquivo nenhum para o seu funcionamento veja nesses links como instalar um componente no delphi http://scriptbrasil.com.br/forum/index.php...alar+componente abraço
  15. sim tem alguns, dos quais já te passei ou pode procurar na net pelo dspack2007.rar obs: voce tambem pode baixar o dspack2006.rar mas tera que trocar a versão do Directx9 abraço
  16. Jhonas

    Erro de Acentos em MySql

    va em Properties of Banco ( propriedades do seu banco de dados ) deixe o Character Set = utf8 deixe o Collation = utf8_general_ci abraço
  17. deve ter vindo junto com a sua webcam, um cd de instalação ... certo ? então use o programa que vem junto com a webcam e veja se esta aparecendo corretamente a imagem se estiver, então a imagem tambem aparecerá quando estiver usando o delphi, mas o aplicativo da camera deverá fechado, caso contrário aparecerá uma tela escura no delphi abraço
  18. .SYS Arquivo de sistema, contendo informações a respeito de comandos internos do sistema. ( não tem nada estranho´, é assim mesmo ) OBS: se não souber extamente o que fazer em um arquivo .sys voce pode danificar o sistema operacional do seu micro dependendo do arquivo .sys veja: https://jira.atlassian.com/secure/attachmen...o+DOS+(bat).pdf abraço
  19. Jhonas

    Somar DBgrid

    veja http://scriptbrasil.com.br/forum/index.php?showtopic=114661 abraço
  20. voce deve instalar os drives que vem junto com a webcam para que não apareça a tela preta quando estiver usando um componente do delphi. abraço
  21. não está correto .... desinstale o delphi, limpe os registros do windows usando o CCleaner e depois instale novamente o delphi e informe abraço
  22. da mesma maneira que outros componentes mas antes vamos fazer um teste com esse: http://www.sharewareconnection.com/redirec...es/cptrm100.zip baixe e execute o programa Webcam.exe e veja se funciona abraço
  23. voce vai colocar no form 2 edits ( Edit1.text e Edit2.Text ) em cada um deles voce vai digitar o ip que voce quiser exemplo: Edit1.Text := '192.168.1.141'; Edit2.Text := '192.168.1.100'; ao clicar no botão os valores serão passados por referencia a função ... entendeu ? abraço
  24. tente assim 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 //Edit1.Text := '192.168.1.141' //Edit2.Text := '192.168.1.100' 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(['+Edit1.Text+']); vSubnetMask := ArrayToVarArray(['255.255.255.0']); if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then begin vDefaultIPGateway := ArrayToVarArray(['+Edit2.Text+']); vGatewayCostMetric := ArrayToVarArray1([1]); // << alterar aqui FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric); end; VarClear(vIPAddress); VarClear(vSubnetMask); VarClear(vDefaultIPGateway); VarClear(vGatewayCostMetric); FWbemObject:=Unassigned; end; end; abraço
×
×
  • Criar Novo...