Ir para conteúdo
Fórum Script Brasil

vms

Membros
  • Total de itens

    306
  • Registro em

  • Última visita

Tudo que vms postou

  1. ola pessoal tenho um banco de dados que se encontra no servidor é possivel 2 usuarios utilizar o mesmo banco ao mesmo tempo? (utilizo o paradox)
  2. iai pirambu, beleza cara cara valeu, deu certo!
  3. ola pessoal estou usando um table com tabela parodox seguinte coloquei o seguinte codigo no button1 tabela1.insert; e o seguinte codigo no button2 tabela1.post; o problema é que quando mexo no dbgrid antes de clicar no button2 ele já posta e se clicar depois da esse erro Dataset not in edit or insert mode tem como dasabilitar o botao sempre que a tabela não esteja em modo de edição ou inserção? (usando um time por exemplo) obs. não queria instalar outros componentes
  4. ola pessoal stou usando um banco de dados paradox com os seguintes campos numero (I) musica (M) titulo (A) estar aparencendo esse erro quando abre a tabela Project Programa.exe raised exception class EDBEngineError winth message 'BLOB has been modified.'. process stopped tenho 3 tabelas com as mesmas caracteristicas(campos) mais apenas 1 dar esse erro tinha um backup do banco, quando substitui não apareceu mais, o que pode ser isso? porque nem sempre terei um backup desde já agradeço
  5. seguinte: tenho uma tabela paradox com o seguinte campo campo (imagem) tipo (B) uso esse codigo para inserir imagem if OpenPictureDialog1.Execute then begin Tabela.Insert; DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); Tabela.post; agora como faço pra limpar esse campo sem deletar esse registro?
  6. beleza, já notei a diferença mas como coloco isso na propridade do TImage mas desde já agradeço pela grande ajuda
  7. ola pessoal como posso execultar esse comando sem que a imagem fique piscando? em um timer begin image1.width := image1.width + 5; end;
  8. é, voce tem razao! valeu pelo conselho mas, cara so falta isso no meu projeto diz ai vai la, eu promento que no proximo eu corrijo isso!
  9. oh no! ola Denis Courcy por acaso você conhece outra forma de fazer isso? porque minha tabela estar relacionada com outra e se eu fizer isso vou ter que mexer no programa quase todo. mesmo assim obrigado pela atenção valeu!!!
  10. ola pessoal stou desenvolvendo um programa de cadastro de maquinas com tabela paradox a duvida é o seguinte: vai existir um caso que tenho registrar 10 "maquinas de solda", 30 "prensas" etc... (nomes iguais, mas codigos diferentes) o problema é que se eu seleciono uma maquina de solda, as 10 será selecionada como faço pra selecionar um registro de cada vez
  11. é exatamente isso Jhonas valeu!!!
  12. esse exemplo divide o numerador pelo denominador e dar um resultado decimal preciso simplificar a franção e não dividir pra o resultado sair fracionario como o exemplo que postei 48/16=3 128/16=8 resultado 3/8" nesse caso numero 16 divide os dois numeros ao mesmo tempo(numerador e denominador) o resultado de ambos sera a fração simplificada
  13. ola pessoal stou tentando fazer uma calcula que converta milimetro para polegadas o calculo e esse ai, o problema estar na simplificação esse exemplo simplifica 48/128 pra o resultado sair 3/8" de polegadas existe alguma forma ou função pra simplificar fração?
  14. procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=true; end;
  15. procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=FormatDateTime('hh:nn:ss',Time); end; esse eu nunca testei Chamando um site utilizando o seu browse padrão uses UrlMon; procedure TForm1.Button1Click(Sender: TObject); begin HlinkNavigateString(nil,'http://users.sti.com.br/sartel'); end;
  16. vms

    duvida com QuickRep

    essa dica supriu minha necessidade, valeu procedure TForm1.Button1Click(Sender: TObject); Var ms :TMemoryStream; begin ms := TMemoryStream.Create; RichEdit1.Lines.SaveToStream(ms); ms.Position := 0; QRRichText1.Lines.LoadFromStream(ms); ms.Free; QuickRep1.Preview; end; mas não consegui fazer esse complemento dar erro declarei a procedure da 2° dica no form principal, mas não deu certo coloquei esse codigo no form principal No evento OnClick do botão preview na tela do editor CODE // estou também supondo que o FrmPreviewRTF será criado em tempo de execução procedure TEditor.BtnPreviewClick(Sender :TObject); begin FrmPreviewRTF := TFrmPreviewRTF.Create(Self); try FrmPreviewRTF.PreviewRTF(RichEdit1); finally FrmPreviewRTF.Free; end; end; coloquei esse codigo no form2 onde se encontra o QuickRep Procedimento no form TFrmPreviewRTF para visualização do texto CODE type TFrmPreviewRTF = class(TForm) ... public procedure PreviewRTF(RichEdit :TRichEdit); end; ... procedure TFrmPreviewRTF.PreviewRTF(RichEdit :TRichEdit); begin QRRichText1.ParentRichEdit := RichEdit; QuickRep1.Preview; end; não entendi bem pra serve esse codigo, mas o outro já serviu pra mim, mas se for pra melhorar mais ainda beleza. desde já agraço, valeu Micheus
  17. valeu pessoal vou estudar as dicas que voces me deram
  18. encontrei esse codigo aqui no forum, stou tentando fazer algo igual mas não stou conseguindo stou querendo visualizar um richedit no QuickRep esse codigo falta alguma coisa? porque não aparece nada no relatorio
  19. valeu galera, tinha encontrado esta função na net, mas não sabia que era a mesma coisa //Pegando o endereço mac da placa de rede Function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID; begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin @Func := GetProcAddress(Lib, 'UuidCreateSequential'); if Assigned(Func) then begin if (Func(@GUID1) = 0) and (Func(@GUID2) = 0) and (GUID1.D4[2] = GUID2.D4[2]) and (GUID1.D4[3] = GUID2.D4[3]) and (GUID1.D4[4] = GUID2.D4[4]) and (GUID1.D4[5] = GUID2.D4[5]) and (GUID1.D4[6] = GUID2.D4[6]) and (GUID1.D4[7] = GUID2.D4[7]) then begin Result := IntToHex(GUID1.D4[2], 2) + '-' + IntToHex(GUID1.D4[3], 2) + '-' + IntToHex(GUID1.D4[4], 2) + '-' + IntToHex(GUID1.D4[5], 2) + '-' + IntToHex(GUID1.D4[6], 2) + '-' + IntToHex(GUID1.D4[7], 2); end; end; end; end;
  20. ok no command prompt do windows voce digita (ipconfig/all) vai aparecer as configuraçoes da maquina ip, endereço fisico, etc uso um programa da siemes que a liceça e para um unico endereço fisico(uma licença pra cada pc) stou tentando bolar um arquivo de licença semelhante a isso pra meus projetos.
  21. alguém sabe de alguma função que possa encontrar o endereço fisico do computador
  22. ae jhonas, por acaso voce não tem ou sabe onde encontro um exemplo de como fazer isso? mas desde já agradeço pela ajuda de voces!!!
  23. ele funciona para uma pasta especifica ex: var janela : HWND; begin janela := findwindow(nil,'C:\Arquivos de programas\Borland\Delphi7\Bin'); postmessage(janela,WM_close,0,0); fecharia a pasta Bin do delphi, se alguém for em "C:\Arquivos de programas\Borland\Delphi7" poderia deletar tudo
×
×
  • Criar Novo...