Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Os links foram fechados pelo FBI, então quem quiser pode olhar esses links de apostilas de delphi http://mreis.info/FIJ/download/delphi5.pdf http://www.micropic.com.br/paginadecliente...de%20delphi.pdf abraço
  2. exemplos http://scriptbrasil.com.br/forum/index.php...hlite=zipmaster abraço
  3. exemplo http://www.planetadelphi.com.br/dica/5776/...uivos-com-idftp abraço
  4. leia essas apostilas http://mreis.info/FIJ/download/delphi5.pdf http://www.micropic.com.br/paginadecliente...de%20delphi.pdf abraço
  5. na pratica, eu prefiro guardar o valor numerico e mostrar no grid o valor currency, ou seja, guardo na tabela o valor 10,00 e mostra no grid R$ 10,00 ... evita muitos problemas como esse. entretanto voce já sabe onde se encontra o erro .... outra forma de contornar isso seria, transformar currency em string e depois em float procedure TForm1.Button1Click(Sender: TObject); var valor : real; begin Edit1.Text := 'R$ 10,00'; Edit1.text := StringReplace(Edit1.text, 'R$','', [rfReplaceAll]); valor := strtofloat(trim(Edit1.Text)); showmessage(floattostr(valor)); end; veja tambem esse post https://www.scriptbrasil.com.br/forum/lofiv...hp/t126119.html abraço
  6. a sua mesma dúvida em outro forum não foi respondida, porque voce não tem idéia de como começar o código ... então sugiro a voce que leia mais sobre o delphi ... as apostilas dos links vão te ajudar a entender uma pouco mais sobre ckeckboxs e passagem de parametros leia com calma e pratique os exemplos fornecidos nas apostilas ... ok ? http://mreis.info/FIJ/download/delphi5.pdf http://www.micropic.com.br/paginadecliente...de%20delphi.pdf abraço
  7. Se voce entendeu o código, vai ver que voce deve digitar somente a descrição , quantidade e preço unitario e clicar no botão o valor total aparece na coluna 4 e a somatoria de tudo na coluna 5 ... aqui não dá erro nenhum se voce estiver trazendo os dados de uma tabela e no campo voce guardou o valor como R$ 10,00, ocorera um erro: R$ 10,00 não é um ponto flutuante valido .... justamente por causa do "R$" onde deveria estar somente "10,00" observe que no código estamos usando apenas edits, então na hora de digitar os valores numericos, não pode ser digitado o R$ abraço
  8. se a internet a cabo não cai, e a conexão compartilhada sim ... então por dedução o problema esta no seu roteador verifique as configurações internas ( se possivel de um reset e configure novamente ) veja se a queda acontece quando voce esta fazendo um download de arquivos grandes verifique tambem se a conexão da antena não esta partida ou com mau contato abra o roteador e veja se não existe algum componente com aquecimento anormal se tiver outro roteador para testar, vai eliminar o problema mais rapido abraço
  9. SyntaxError: invalid syntax sintaxe invalida ... erro na escrita do comando .... verifique abraço
  10. mais eu quero saber qual é o codigo do botao de busca , são 2 checkbox e um botao de busca é uma informação muito vaga .... se voce não der + detalhes, fica dificl responder abraço
  11. Vi algo a respeito relativo a sua dúvida no forum, mas não me lembro onde ... tente fazer uma pesquisa no forum abraço
  12. utilize os checkboxs como parametros em uma SQL ( query, adoquery, ibquery ...etc ) ligado a um DataSource linkado ao DBGrid abraço
  13. Amigo, um sistema de ponto atualmente, utiliza leitura de código de barras ou tarja magnetica... dessa maneira o funcionario apresenta apenas a sua carteirinha ou cracha com o código de barras ou tarja magnetica , e as informações de data e hora de entrada e saída, ficam automaticamente registradas no banco de dados então basicamente seriam necessarios apenas um cadastro de funcionarios, onde constaria os dados desse funcionario e um registro unico para o código de barras; e um controle de entrada e saida, onde o funcionario somente teria que efetuar a leitura do código de barras do seu cracha para efetuar o registro do ponto. exemplo http://www.activedelphi.com.br/imagens_CD/...uncionarios.htm codigo fonte http://www.planetadelphi.com.br/download/2...rt%C3%A3o-ponto http://www.planetadelphi.com.br/download/5...onto-eletronico abraço
  14. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; BitBtn1: TBitBtn; txtdescricao: TEdit; txtquant: TEdit; txtvalor_un: TEdit; txtvalor_tot: TEdit; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cont : integer = 0; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var ValorTotal, SomaTotal: Real; i: integer; begin cont:=cont+ 1; StringGrid1.RowCount:=cont+1; StringGrid1.cells[1,cont]:= txtdescricao.Text; StringGrid1.cells[2,cont]:= txtquant.Text; StringGrid1.cells[3,cont]:= txtvalor_un.Text; ValorTotal := strtofloat(txtquant.Text) * strtofloat(txtvalor_un.Text); txtvalor_tot.Text:=floattostr(ValorTotal); StringGrid1.cells[4,cont]:= txtvalor_tot.Text; for i:=1 to StringGrid1.RowCount -1 do Somatotal:= Somatotal + strtofloat(StringGrid1.Cells[4,i]); StringGrid1.cells[5,cont]:= Formatfloat(',0.00',Somatotal); txtquant.Text := ''; txtdescricao.Text := ''; txtvalor_un.Text := ''; end; end. abraço
  15. mude o tipo da variavel para int64 procedure TForm1.Button1Click(Sender: TObject); var i : INT64; begin i := 7891008121025; showmessage(inttostr(I)); end; abraço
  16. 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 DateUtils, FileCtrl; procedure DirectoryDateTimeInfo(const path : string); var sr : TSearchRec; modifiedTime : TDateTime; creationTimeSystem: TSystemTime; lastAccessTimeSystem: TSystemTime; lastWriteTimeSystem: TSystemTime; creationTime: TDateTime; lastAccessTime: TDateTime; lastWriteTime: TDateTime; begin if sysUtils.FindFirst(path, faDirectory, sr) = 0 then try modifiedTime := FileDateToDateTime(sr.Time); FileTimeToSystemTime(sr.FindData.ftCreationTime, creationTimeSystem); with creationTimeSystem do creationTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); FileTimeToSystemTime(sr.FindData.ftLastAccessTime, lastAccessTimeSystem); with lastAccessTimeSystem do lastAccessTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); FileTimeToSystemTime(sr.FindData.ftLastWriteTime, lastWriteTimeSystem); with lastWriteTimeSystem do lastWriteTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); ShowMessage(Format('Informações de Data e Hora para: "%s"', [path])); ShowMessage(Format('Data da Criação: "%s"', [DateTimeToStr(creationTime)])); ShowMessage(Format('Ultimo Acesso: "%s"', [DateTimeToStr(lastAccessTime)])); ShowMessage(Format('Data da Ultima Modificação: "%s"', [DateTimeToStr(lastWriteTime)])); ShowMessage(Format('Hora da Ultima Modificação: "%s"', [DateTimeToStr(modifiedTime)])); finally FindClose(sr); end else ShowMessage(Format('Não foi possível obter informação para "%s"', [path])); end; procedure TForm1.Button1Click(Sender: TObject); var path , local: string; begin path := 'C:\'; // Diretorio inicio... if SelectDirectory(path, [sdAllowCreate, sdPerformCreate, sdPrompt], 1000) then local := path; DirectoryDateTimeInfo(local); end; end. abraço
  17. exemplo function Executa(Arquivo: string; Estado: Integer): Integer; var Programa: array[0..512] of char; CurDir: array[0..255] of char; WorkDir: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin StrPCopy(Programa, Arquivo); GetDir(0, WorkDir); StrPCopy(CurDir, WorkDir); FillChar(StartupInfo, Sizeof(StartupInfo), #0); StartupInfo.cb := sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Estado; if not CreateProcess(nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := -1 else begin WaitForSingleObject(ProcessInfo.hProcess, Infinite); //GetExitCodeProcess (ProcessInfo.hProcess, Result); end; end; procedure TForm1.Button1Click(Sender: TObject); begin TblArq.First; while not TblArq.Eof do begin Data := FormatDateTime('dd-mm-yyyy hh-mm-ss', Now); NomeBack := 'BK-'+ TblArqPasta.AsString + '-' + Data; CamBackup := ChangeFileExt('C:\SisBackup\'+NomeBack,'.rar'); try Executa(Pchar('C:\Program Files (x86)\WinRAR\WINRAR.EXE a -hp123mudar "'+CamBackup+'" "'+TblArqCaminho.AsString+'"'), sw_hide); except end; TblArq.Next; end; end; ou voce pode usar o comando Break para pausar até que o bakup esteja concluido e usar o comando Continue para prosseguir abraço
  18. Client SQL dialect 1 não suporta referência ao tipo de dados BIGINT. Tente conectar-se com o dialect 3. abraço
  19. Se não for pedir demais, tem como você me explicar o por que disso? abraço
  20. coloque o código que voce está usando para ordenar os campos
  21. [Warning] FSisBackup.pas (67): Unit 'FileCtrl' é específico para uma plataforma [Warning]FConfPastas.pas(68): Unit 'FileCtrl' is specific to a platform são 2 forms diferentes ??? [Error] FConfPastas.pas(68): Identifier redeclared: 'FileCtrl' identificador redeclarado ... ou seja, voce duplicou essa uses OBS: o código do link funciona em delphi 5 e 7 ou voce esta esquencendo de alguma coisa no seu código abraço
  22. Pode ser sim, porque você não está dando ao seu código de um ( tempo ) de obter as mensagens de sockets da fila veja se consegue entender esse exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, scktcomp; type TService1 = class(TService) procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServiceContinue(Sender: TService; var Continued: Boolean); procedure ServicePause(Sender: TService; var Paused: Boolean); procedure ServiceStop(Sender: TService; var Stopped: Boolean); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; TSparkyThread = class(TThread) ClientSocket1: TClientSocket; procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); public procedure Execute; override; end; var Service1: TService1; implementation var SparkyThread: TSparkyThread; {$R *.DFM} procedure TSparkyThread.Execute; procedure GetMessages; var Msg : TMsg; begin while not Terminated and PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin TranslateMessage(Msg); DispatchMessage(Msg); end; end; begin ClientSocket1 := TClientSocket.Create(application); ClientSocket1.Port := 80; ClientSocket1.Host := '192.168.1.100'; ClientSocket1.OnConnect := ClientSocket1Connect; while not Terminated do begin Beep; Sleep(5000); ClientSocket1.Active:=True; GetMessages; end; end; procedure TService1.ServiceStart(Sender: TService; var Started: Boolean); begin SparkyThread:=TSparkyThread.Create(False); Started:=True; end; procedure TSparkyThread.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin ClientSocket1.Socket.SendText('some text'); ClientSocket1.Active:=False; end; procedure ServiceController(CtrlCode: DWord); stdcall; begin Service1.Controller(CtrlCode); end; function TService1.GetServiceController: TServiceController; begin Result := ServiceController; end; procedure TService1.ServiceContinue(Sender: TService; var Continued: Boolean); begin SparkyThread.Resume; Continued:=True; end; procedure TService1.ServicePause(Sender: TService; var Paused: Boolean); begin SparkyThread.Suspend; Paused:=True; end; procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean); begin SparkyThread.Terminate; Stopped:=True; end; end. abraço
  23. compare os exemplos desses links com o seu código ... acho que vai te ajudar http://www.delphimaster.net/view/6-21702 http://vmg.pp.ua/books/%D0%9A%D0%BE%D0%BF%...erSocket/22.htm abraço
  24. Hey, I'm tryin to receive a socket response but no success... And don't know why. Look my code: procedure MyThread.SendText(Command: string; MySocket: TClientSocket); var ReceivedString: string; SockStream: TWinSocketStream; Buffer: array[0..1023] of Char; begin FillChar(Buffer, SizeOf(Buffer), #0); SockStream := TWinSocketStream.Create(MySocket.Socket, 2000); if Command='Username' then begin MySocket.Socket.SendText('USER test'+#13+#10); //when I send this, I receive a response like '+OK Password required' while SockStream.Read(Buffer, SizeOf(Buffer)) <> 0 do //this should read the response and put in ReceivedString, but nothing happens... ReceivedString:= ReceivedString + Buffer; I'm sending the 'USER test' with success, and the server is answering with the message... But I can't receive this message... Why?? http://www.opensc.ws/delphi-help/17771-how...html#post161269 OBS: Esse post tambem é seu ???
×
×
  • Criar Novo...