Ir para conteúdo
Fórum Script Brasil

Churc

Veteranos
  • Total de itens

    1.198
  • Registro em

  • Última visita

Tudo que Churc postou

  1. Churc

    Netapi32.dll

    olá andréia olha infelizmente esta função que você está usando NetRemoteTOD não é suportada na dll 'svrapi.dll' Esta função é valida somente na dll 'netapi32.dll', que foi implementada a partir do Windows NT. As funções que são suportadas pela 'svrapi.dll' são NetAccessAdd NetAccessCheck NetAccessDel NetAccessEnum NetAccessGetInfo NetAccessGetUserPerms NetAccessSetInfo NetConnectionEnum NetFileClose2 NetFileEnum NetSecurityGetInfo NetServerGetInfo NetServerSetInfo NetSessionDel NetSessionEnum NetSessionGetInfo NetShareAdd NetShareDel NetShareEnum NetShareGetInfo NetShareSetInfo Bom, vou dar uma pesquisada e ver se tem algo parecido para versões Win9x mas acho pouco provável, pois foi somente a partir do Windows NT que foi criado o conceito "Server" e essa função é para rede. qualquer coisa eu posto aqui... abraços ops acho q da sim pelo NetServerGetInfo qualquer coisa eu posto aqui abraços
  2. Churc

    Netapi32.dll

    A dll netapi32.dll infelizmente não vai funcionar no Windows 9x pois é específica para plataformas NT .NET No windows 9x é usado a dll svrapi.dll no lugar da netapi32.dll. Só que com várias diferenças... O que você pode fazer é o seguinte... O mais importante de tudo é não linkar nenhuma função que chama a dll netapi32.dll direto na aplicação ou seja, linkar as funções que você está usando em tempo de execução... Para isto você vai precisar detectar o Sistema operacional que está rodando, exemplo, se a plataforma é Windows NT (NT, 2000, XP, 2003) ou 9x (95, 98, ME).. Ai é só chamar a função em tempo de execução ao invés de linkar direto na aplicação exemplo... Se o sistema for Windows 9x você carrega a dll 'svrapi.dll' e se for Windows NT ai você carrega a dll 'netapi32.dll' isso em tempo de execução, se você linkar alguma função dessas dll direto na aplicação, vai dar runtime error na hora que você abrir o programa, que é o que eu acho q está acontecendo não é? tipo.. The nomedoprograma file is linked to missing export NETAPI32.DLL bla bla bla Se for algum componente que estiver linkando estas funções você terá que ter o source para poder modificar... abraços
  3. No delphi 7 infelizmente os componentes Netmasters não vem por padrão, como no delphi 6. Você teria que comprá-lo no site www.netmastersllc.com ouu achar alguém que tenha comprado, ouu achar em sites de warez rsrs eu não tenho, quando precisei não achei em lugar nenhum, porém talvez atualmente você ache que na época o delphi 7 era lançamento abraços
  4. Churc

    Curso Delphi Avançado

    opa blzz amigo, qual codec você usou para gravar a apresentação? tentei ver mais deu erro de codec só saiu o som... e olha q tenho aqles pacotes de codec huaauh legal cara seus cursos parabéns! abraços
  5. Churc

    Formatação

    opa beleza tenta assim valor_que_vai_serformatado := formatfloat('###,###,##0.00', ValorReal); qualquer coisa posta ae abraços
  6. opa beleza então fera, isso vai ser possível sim mas acredito que ainda não é... e se for não é no Delphi 7 seria mais pro Delphi 2005 mas que acredito que ainda não seja possível... Eu vi numa foto sobre as futuras versões do Delphi que foi tirada numa conferência da borland, e mostra isso em 2006 por isso q acho q ainda não é possível usar... (Delphi C# and C++ in the same IDE) da uma olhada Delphi Roadmap ps: eu acho só se alguém souber por favor nos informe uahahua
  7. Churc

    Formatação

    Olha não sei se é o melhor método, e se tem jeito mais fácil... como não é digitado o valor, pelo que entendi, então você pode colocar um filtro, no OnChange do Edit. Se o valor fosse digitado, seria mais fácil filtrar no OnKeyPress abaixo de uses declara type TChars = set of Char; depois de implementation Function filtrar(const S: string; const ValidChars: TChars): string; stdcall; var I: integer; begin Result := ''; for I := 1 to Length(S) do if S in ValidChars then Result := Result + S; end; ai você usa assim, no OnChange do edit que vai receber os valores, você coloca assim exemplo: Edit1.text := filtrar(edit1.text, ['0'..'9','.',',']); pronto ele só vai aceitar, números, pontos e a vírgula... ai é só mudar o filtro conforme necessidade... existem outros métodos de filtro, mais esse acho que é o mais completo, pois funciona tanto na entrada de valores quanto ao digitar... abraços
  8. Churc

    Banco De Dados

    Pode sim, basta você baixar o MySQL server, e usar componentes de acesso como o Zeoslib Mas eu recomedo você utilizar Firebird, ao invés de MySQL... É de graça também, e acredito que seja usado por mais de 80% dos programadores em Delphi. MySQL é mais usado para web... tipo php e tal... abraços
  9. veja se isso te ajuda... Ajustando Automaticamente a Largura das Colunas abraços
  10. Churc

    Tutorial Thread

    Eu tenho um documento aqui em .pdf que é bem explicativo e tem exemplos sobre Multi Threads... bem interessante... http://rapidshare.de/files/5714214/multthread.zip.html Se tiver dúvidas, poste no fórum que com certeza alguém vai te ajudar abraços QDMP
  11. hmm mas então acho q não tem outra forma, porque como seu programa iria identificar a posicao do mouse se não for por coordenadas X e Y. "acho" que mesmo não sendo dessa forma que falei, sem ser por coordenadas não tem como... vai saber... auhehua abraços
  12. Churc

    Prompt - Duvida

    nomedomemo.lines.loadfromfile(); nomedomemo.lines.savetofiles(); seria isso?
  13. opa tenta isso var mousepos: TPoint; begin getcursorpos(mousepos); ai você usa assim, pra saber a posicao x, mousepos.x e y mousepos.y se não for getcursorpos é getcursorposition, to sem delphi aqui abraços
  14. Churc

    Interbase

    firebird melhor q interbase mesmo, mas é muito mais fácil criar tabelas usando programas terceiros, tipo o ibexpert, da uma olhada pra você ver se ainda não viu, quebra um p*** galho e economiza tempo
  15. Churc

    Interbase

    IB Expert http://www.ibexpert.com/ pega a versão free ps: é o melhor com certeza abraços
  16. Churc

    Como Fazer?

    nossa explica isso direito o que você quer fazer? uma dica, use DatetoStr(Now); porque você ta chamando o format e não ta formatando... edit1.text := datetostr(now); abraços
  17. altere a opção Alignment no object inspector.... ou via codigo tipos do TAlignment: taLeftJustify = esquerda taRightJustify = direita taCenter = centro Memo1.Alignment := tipo do TAlignment; seria isso?
  18. Churc

    Dbgrid

    tipo, o que você gostaria de fazer? não deixar mudar o tamanho das colunas?
  19. Churc

    Dbgrid

    OnColumnMoved?
  20. tem sim Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); ou Image1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
  21. qual banco de dados está usando?
  22. ae fera legal... sobre iniciar a data atual tava lá data := now quer um dica, loop são quase sempre usados de um jeito ou de outro... da uma lida em tutoriais q tem por ai sobre loops porque não adianta você fazer algo automatizado, você tem que entender o que fez abraços
  23. var data: TDateTime; loop, count: integer; begin count := StrtoInt(DbEdit3.text); //adiciona a variavel o numero de parcelas data := now; //adiciona a variavel a data do dia atual for loop := 0 to count do begin blablabla.insert; data := IncMonth(data,1); //aqui foi jogado 1 mês na data atual, então hoje é dia 10/09/2005 o valor dessa variavel ficou 10/10/2005 e vai aumentando conforme o numero de parcelas contidas no DBEdit3 aqui você continua o codigo pra inserção end; abraços
  24. Churc

    Registro

    usa-se loop para fazer este tipo de operação exemplo var count, loop: integer; begin count := StrtoInt(DBEdit.text); for loop := 0 to count do begin what to do? end; não se da o peixe ensina a pescar... entendeu como fazer?
×
×
  • Criar Novo...