Ir para conteúdo
Fórum Script Brasil

__WIGLAN__

Membros
  • Total de itens

    17
  • Registro em

  • Última visita

Tudo que __WIGLAN__ postou

  1. Amigo, eu uso o clientdataset em meus formularios. para pegar o valor da Grade, eu uso: if FdbDevolucoes.SelectedField.FieldName = 'QUANTIDADE' then showmessage((FdbDevolucoes.SelectedField.Text));
  2. cara, então o teu erro não esta no delphi. Tenta colocar `\`no final no diretorio : C:\Arquivos de programas\Sistema Mar-Girius\ tenta tambem copiar outra pasta de outro diretorio pra ver se funciona....
  3. qual o erro que ele acusa???? da uma olhada nesse link... http://extremeprogramming.wordpress.com/20...bpastas-delphi/ the +
  4. quando executamos o comando copiar no windows, ele dispara uma mensagem. Voce pode identificar essa menssagem e comparar se o conteudo da memoria que é gerada pelo CTRL + C é igual a do memo. Se for igual voce apaga da memoria. qualquer duvida so postar... thé + ------------------------------------------------------ Reverse_Text 2.2. Download Inversor de Link: http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ ------------------------------------------------------
  5. amigo, voce pode utilizar o registro do windows pra isso.
  6. da uma olhada nesse link amigo: http://extremeprogramming.wordpress.com/20...bpastas-delphi/ thé +
  7. Destrua todos os objetos que voce cria via codigo e para fechar o programa de o comando: application.Terminate; thé + ------------------------------------------------------ Reverse_Text 2.2. Download Inversor de Link: http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ ------------------------------------------------------
  8. Opa amigo, o seguinte codigo funciona: de dois cliques no botao e adicione este codigo : MessageDlg('Olá, pessoal', mtInformation, [mbOK], 0); ou Application.MessageBox('Olá, pessoal','Bem Vido',mb_Ok + mb_IconExclamation); Thé + ----------------------------------------------------- Reverse_Text 2.2. Download Inversor de Link: http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ -----------------------------------------------------
  9. então cara, acho que desta vez resolvi teu problema. fiz algumas adaptações e correções no programa que vao te ajudar. segue o link para download... OBS : verifique se o arquivo que voce baixa esta na versão 2.2 :) http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ Qual quer duvida ou sugestao não deixe de postar.... Novas versões podem surgir... Portanto, fiquem atentos... e não dexe de fazer o download..... : :D Obrigado!!!!
  10. Cara, não ta muito facil resolve teu problema. Mas estou na luta.... Divulga o programa pros teus amigos ai.... http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
  11. não tenho certeza mas provalvelmente seja : SELECT * from TERMO_RelatorioFinal_sub where Data_VisitaLocal is null order by Data_VisitaLocal ; voce pode usar tambem: order by Data_VisitaLocal desc //ordem decrescente order by Data_VisitaLocal asc //ordem crescente
  12. tá, me manda um exemplo desse pra mim ve como que funciona isso....
  13. Agora entendi o que tu precisa, mas não entendi o porque. Tipo se você já tem o link 'http://migre.me/2JqMS' ai ele vai carrega esse link em uma pagina. Nessa página ele vai gerar a Url de download que vai ser do Megaupload, FileServe, etc... então, Não entendi por que voce quer a Url gerada depois de carregar o link do migre.me???
  14. Não entendi muito bem a sua sugestão, mas fiz algumas adaptações no programa. Baixe ele de novo e teste. Se não for o que tu precisa me avisa. http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ Baixe pela PRIMEIRA OPÇÂO. Thé +
  15. O link abaixo tem o pacote de componente Rxlib do Delphi 6 até Delphi 2010 : http://www.multiupload.com/439SU9B0HW Istalação Passo a Passo : 1 - Copie e extraia a pasta Rxlib na pata lib do delphi (geralmente é em : C:\Arquivos de programas\Embarcadero\RAD Studio\7.0\lib ). 2 - abra o delphi e va em File/Open project 3 - va navegando pela pasta que voce extraio ate achar a pasta delphi 2009 (...7.0\lib\RxLib\packages). Repare que na pasta packges tera subpastas com diferentes versões do delphi. Escolha a compativel com sua versão e Abra o Arquivo "Rxlib.groupproj" 4 - nas mesagens de warning que aparecer de OK en todas. 5 - De um Jeito bem Tosco : os pacotes que não tiver uma 'engrenagenzinha' voce da um 'Build', as que tiverem 'engrenagenzinha' voce da um 'Build' e em seguida um 'Install'. Faça isso sem pular Nenhum pacote. 6 - depois que terminar salve tudo e crie uma nova aplicação e veja se os componentes estao instalados. Espero ter ajudado.........
  16. Segue o link para download do programa então : http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/ esse é o blog onde ele ta hospedado... por favor comentem se gostarem do aplicativo... :unsure: duvidas e sugestões ou reclamações para melhorias são sempre bem vindas... :rolleyes: thé + pessoal....
  17. OLA AMIGO... Cansado com esses protetores de link, eu fiz um 'Reverse Text' pra facilitar o trabalho na hora de fazer algun download. Logo abaixo segue o codigo que abre uma nova guia no navegador com o link de Download: ------- //vai inverter a string passada como parametro. function TfrmReverse.Inverte(texto: String): String; var i: Integer; begin for i := Length(texto) downto 1 do begin Result := Result +copy(texto,i,1); end; ------- procedure TfrmReverse.Button2Click(Sender: TObject); var Endereço_Url: WideString; Url_Final : PWideChar; megaupload,link : string; I : Integer; begin //verifica se o link é do megaupload; if AnsiContainsText(edit1.text,'d?/moc.daolpuagem.www//:ptth') then begin megaupload := Inverte(edit1.text); if Pos('=',megaupload) >= 0 then Delete(megaupload,1,pos('=',megaupload)); for I := 0 to Length(megaupload) - 1 do Begin if Copy(megaupload,i,1) = '=' then begin megaupload := Copy(megaupload,1,(i -1)); break; end; End; link := 'http://www.megaupload.com/?d=' + megaupload; Url_Final := Addr(link[1]); //converte str para PWideChar if Application.MessageBox('Deseja Abrir Uma Nova Janela Para Realizar o Download ?','Atenção', MB_ICONQUESTION + MB_YESNO)= ID_YES then begin HlinkNavigateString(nil,Url_Final); end; end ----------- OBS : o programa trata de outros servidores tambem, não so do megaupload. se quizer, eu te mando o programa completo pra tu analizar e utilizar. ESPERO QUE TENHA AJUDADO...
×
×
  • Criar Novo...