RES: [delphi-br] Gerenciador Remoto
Opa, Opa... Eduardo... esse single-vnc é um aplicativo que usa o Terminal Service ? Não entendi muito bem... explane a situação pra nós ? é um software desenvolvido por vc ? Estou interessado em analisar o funcionamento do mesmo... Obrigado... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre Veloso de Mesquita Enviada em: sexta-feira, 16 de fevereiro de 2007 00:08 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gerenciador Remoto Eu uso o Terminal Service do Windows XP. Se você quiser, você pode até importar o ActiveX para dentro da sua aplicação (criando o TLB). No roteador do cliente, caso este já o possua, você pode rotear a porta 3389. A MS disponibiliza um tutorial para alteração da porta, caso haja necessidade. [ ]'s - Original Message - From: Adriano Santos - Direção de Arte [EMAIL PROTECTED] mailto:artes%40doiscliques.com com To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, February 16, 2007 12:52 AM Subject: Re: [delphi-br] Gerenciador Remoto Mas o Single-VNC é desenvolvido por ti? Free? Derivado do VNC? Como funciona com empresas que tem roteador? Se o single se conecta ao seu computador então a conexão é de dentro do cliente pra fora? Ou seja, o roteador não mata a conexão? Imaginei fazer um programa assim, que fizesse ao contrário. Eduardo Silva dos Santos respondeu: Eu uso o Single-VNC, o cliente click e se conecta ao meu computador, eu assumo o controle e do o suporte. veja como é o programa em http://www.drdsiste http://www.drdsistemas.com/downloads.html mas.com/downloads.html http://www.drdsiste http://www.drdsistemas.com/downloads.html mas.com/downloads.html Suporte DRD. Em 15/02/07, Adriano Santos - Direção de Arte [EMAIL PROTECTED] mailto:artes%40doiscliques.com com mailto:artes%40doiscliques.com escreveu: Alguém já fez um gerenciador remoto? Ou o que vcs usam pra dar suporte a distância? VNC? ULTRA-VNC? LogMeIn? -- -- *Adriano Santos* -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com mailto:eduardo.drd%40gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ http://www.drdsiste http://www.drdsistemas.com/ mas.com/ [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40 -- -- *Adriano Santos* -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gerenciador Remoto
Disponibilize os fontes pra nós... Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sexta-feira, 16 de fevereiro de 2007 09:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gerenciador Remoto a ultravnc disponibilizou uma página no seu site para fazer isso... agora, tirou do ar, mas eu baixei os arquivos q gera esse instalador. assim, eu gero o .exe aqui mesmo. é um criador de ULTRAVNC. se quiser ver o modelo, acesse: www.sisponto.com.br/conecta.exe ... o legal é q dá pra colocar imagem, textos e até o ícone do .exe. antes, uma empresa de informática q gerava esse .exe pra gente... cobrava 65 reais para modificar ou gerar esse .exe... daí eu corri atrás e descobri essa facilidade. eu criei uma rota de conexão interna na nossa rede, passando pelo modem adsl... assim, um cliente q não tenha conexao com ip válido, é possível conectar sem depender de rotas dentro da sua rede... conectamos até em clientes com linha discada. Nosso suporte é muito eficiente graças a essa ferramenta. Todos os problemas são solucionados quase imediatamente, sem a necessidade de ir um tecnico no local. []´s and - Original Message - From: Adriano Santos - Direção de Arte To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, February 16, 2007 9:25 AM Subject: Re: [delphi-br] Gerenciador Remoto Um executável servidor pro UltraVNC? Como? -- *Adriano Santos* Desenvolvimento (Anderson) respondeu: usamos o ultravnc. e crio um .exe para o cliente, onde vai até nosso logotipo no programa... :P and [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40 __ Informação do NOD32 IMON 2064 (20070215) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Auxílio em um CreateCustom
Pessoal, vê se alguém pode trocar uma idéia comigo... Estou montando um CreateCustom com alguns parâmetros que serão padrões a todos os meus formulários... Ex.: FormClass : TformClass; TModeloBasico(FormClass).CreateCustom(Owner: TComponent; const FormName: String; FormStyle: TFormStyle; BorderStyle: TBorderStyle = bsSingle); Mas sabemos que por override alguns formulários podem precisar de parâmetros adicionais... FormClass : TformClass; TCadGeral(FormClass).CreateCustom(Owner: TComponent; const FormName: String; FormStyle: TFormStyle; BorderStyle: TBorderStyle = bsSingle; Categoria: TCadGeral = tcgCliente); Sendo assim, estou tentando bolar algo como uma procedure que crie os TFormClass que eu passar como parâmetro a partir de seu CreateCustom. O problema é que nessa procedure, eu também preciso passar os parâmetros do CreateCustom, e não estou conseguindo chegar a uma conclusão de como passar os parâmetros de telas que tenham um override do meu CreateCustom padrão... Ex.: Procedure CriarTela(Formulario: TFormClass; _Owner: TComponent; const _FormName: String; _FormStyle: TFormStyle; _BorderStyle: TBorderStyle = bsSingle); CriarTela(TCidade,Application,CIDADE, fsMDIChild); Problema: -- CriarTela(TCadGeral,Application,CADGERAL, fsMDIChild,bsSingle,tcgFornecedor); O parâmetro tcgFornecedor, é do CreateCustom do formulario TCadGeral, não do formulário padrão, que é referência para a procedure CriaTela... Não sei se me expressei bem, mas estou aguardando alguns comentários... Se alguém puder me ajudar eu agradeço, caso contrário, se eu chegar a solução, posto aqui para todos... Obrigado... [ ]s Rodrigo Madureira ( Delphi + Firebird + IBO + Fortes ) [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Estouro de Memoria (URGENTE)
Isso é um problema grave do 98, ele não gerencia exes a partir de um tamanho específico... Tivemos esse problema e de início criei um aplicativo que gerenciava versões de arquivos que eram guardados no Banco de dados, e começamos a gerar o exe sem as bpls pra reduzir um pouco seu tamanho e voltar a rodar nos clientes... Salvamos exe e Bpls no banco, e sempre que o aplicativo gerenciador era executado, ele carregava do banco as bpls e exe para a pasta, e executava o aplicativo principal... pra termos um controle Em seguida, o software foi modularizado... Só assim resolveu... Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcio Enviada em: quinta-feira, 15 de fevereiro de 2007 08:36 Para: Grupo Delphi; Grupo Delphi Assunto: [delphi-br] Estouro de Memoria (URGENTE) Galera, pq quando meu executavel chega a mais de 14mb ele nao abre no windows 98? Da uma mensagem dizendo que nao há memoria livre para executar o programa. O que eu faço pra resolver o problema.. Márcio Cristiano Tenreiro Programador Pleno Universidade de Marília/SP (14) 2105-4129 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Estouro de Memoria (URGENTE)
Oi... bom vou tentar explicar um pouco mas não tão detalhadamente... depois se quiser te mando alguns fontes do projeto... O escopo é o seguinte... Antes, o cliente executava um aplicativo, que era o nosso aplicativo principal... hoje, o cliente executará um gerenciador, que chamará o seu aplicativo principal... Porque ? Porque o meu aplicativo ficou com um tamanho que o Windows 98 não pode gerenciar, sendo assim gerando o aplicativo sem as BPLs meu aplicativo cai de tamanho... pouca coisa... mas como medida paleativa funciona. O problema é que dependendo... são dezenas de BPLs que o cliente tem que ter na máquina dele, então o que fazer ?? Criar um gerenciador que carregue do banco esses arquivos, pra ninguém ter que ficar andando pra lá e pra cá, copiando e colando arquivos nas máquinas do cliente... Além disso, o sistema agora começa a gerenciar a própria versão do seu exe principal... O que facilita muito... Esse gerenciador faz o que ? Verifica o conteúdo da pasta onde está o exe, comparando com o conteúdo de uma tabela que está no banco... Essa tabela tem a seguinte estrutura: DESCRICAO VARCHAR(30); VERSAOMAIOR INTEGER; VERSAOMENOR INTEGER; VERSAORELEASE INTEGER; VERSAOBUILD INTEGER; ARQUIVO BLOB; O gerenciador, quando executado, carrega as informações da tabela e verifica, pra cada arquivo se: 1 Se a versão do arquivo na pasta, for maior que a sua, carrega o arquivo pro banco... 2 Se a versão do arquivo é igual, nada faz 3 Se a versão do arquivo é menor, faz uma cópia do arquivo pra uma pasta de Backup, renomeando-o para bkp_nomedoarquivo_DiaHora.bkp, em seguida salva na pasta do exe, o arquivo que está no banco, que tem a versão maior... 4 No final, executa o aplicativo principal... Mas como ele sabe qual é ? Tenho o nome dele no .ini da aplicação... aí é só chamar esse conteúdo usando a ShellApi, e em seguida se autofinalizar... O resultado é um splash, a tela do gerenciador... com mensagens tipo, Atualizando arquivos..., em seguida abre o sistema direto na tela de login, ninguém percebe o que houve... Detalhe... como saber se o aplicativo não será iniciado antes do gerenciador ? No DPR do aplicativo, verifico se o ParamStr(0) é -run, se não for, chamo o gerenciador e dou um Halt na aplicação, se for, sigo adiante... No gerenciador, na hora de chamar o aplicativo, passo o parametro -run... Assim crio um flag. Mesmo o cliente executando o aplicativo principal, ele se fechará e chamará o gerenciador... OK ?! Mais dúvidas me pergunte... Rodrigo... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adauri Antonio Camacho Junior Enviada em: quinta-feira, 15 de fevereiro de 2007 10:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Estouro de Memoria (URGENTE) Rodrigo, bom dia. Você poderia explicar melhor este negocio de guardar as bpls em banco ? Obrigado Jr. - Original Message - From: Rodrigo Madureira Barbosa To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, February 15, 2007 9:08 AM Subject: RES: [delphi-br] Estouro de Memoria (URGENTE) Isso é um problema grave do 98, ele não gerencia exe's a partir de um tamanho específico... Tivemos esse problema e de início criei um aplicativo que gerenciava versões de arquivos que eram guardados no Banco de dados, e começamos a gerar o exe sem as bpl's pra reduzir um pouco seu tamanho e voltar a rodar nos clientes... Salvamos exe e Bpl's no banco, e sempre que o aplicativo gerenciador era executado, ele carregava do banco as bpl's e exe para a pasta, e executava o aplicativo principal... pra termos um controle Em seguida, o software foi modularizado... Só assim resolveu... Rodrigo _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Marcio Enviada em: quinta-feira, 15 de fevereiro de 2007 08:36 Para: Grupo Delphi; Grupo Delphi Assunto: [delphi-br] Estouro de Memoria (URGENTE) Galera, pq quando meu executavel chega a mais de 14mb ele nao abre no windows 98? Da uma mensagem dizendo que nao há memoria livre para executar o programa. O que eu faço pra resolver o problema.. Márcio Cristiano Tenreiro Programador Pleno Universidade de Marília/SP (14) 2105-4129 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Estouro de Memoria (URGENTE)
Tentei usando o ASPack e mesmo assim não funfou quando executado, ele explode o tamanho original pra memória e puff... estouro de novo... Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quinta-feira, 15 de fevereiro de 2007 10:10 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Estouro de Memoria (URGENTE) é uma coisa polemica, mas vc ja tentou compactar o exe usando o UPX? so pra ver se roda? Em 15/02/07, Adauri Antonio Camacho Junior [EMAIL PROTECTED] mailto:adauri_jr%40yahoo.com.br com.br escreveu: Rodrigo, bom dia. Você poderia explicar melhor este negocio de guardar as bpls em banco ? Obrigado Jr. - Original Message - From: Rodrigo Madureira Barbosa To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 15, 2007 9:08 AM Subject: RES: [delphi-br] Estouro de Memoria (URGENTE) Isso é um problema grave do 98, ele não gerencia exe's a partir de um tamanho específico... Tivemos esse problema e de início criei um aplicativo que gerenciava versões de arquivos que eram guardados no Banco de dados, e começamos a gerar o exe sem as bpl's pra reduzir um pouco seu tamanho e voltar a rodar nos clientes... Salvamos exe e Bpl's no banco, e sempre que o aplicativo gerenciador era executado, ele carregava do banco as bpl's e exe para a pasta, e executava o aplicativo principal... pra termos um controle Em seguida, o software foi modularizado... Só assim resolveu... Rodrigo _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcio Enviada em: quinta-feira, 15 de fevereiro de 2007 08:36 Para: Grupo Delphi; Grupo Delphi Assunto: [delphi-br] Estouro de Memoria (URGENTE) Galera, pq quando meu executavel chega a mais de 14mb ele nao abre no windows 98? Da uma mensagem dizendo que nao há memoria livre para executar o programa. O que eu faço pra resolver o problema.. Márcio Cristiano Tenreiro Programador Pleno Universidade de Marília/SP (14) 2105-4129 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Sistema de Lan House
Existe alguns comandos da API do windows que congelam um form na tela impedindo a execução de outros... Tente algo como SetForegroungWindows, ou coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na lista mesmo pra todos poderem compartilhar... Até + Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jeferson Adoryan Enviada em: terça-feira, 13 de fevereiro de 2007 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Sistema de Lan House Dae galera Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte, enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso) nao permitir executar nenhum programa. Tive alguns problemas com micros usando teclado multimidia. Sera que isso é possivel?? Valeu ___ Jeferson Adoryan Técnico em Desenvolvimento de Software Objetiva Informática LTDA Fone: (55) 3375 3828 Celular: (55) 8115 4544 Linux Counter #404063 Home Page: http://adoryan. http://adoryan.byethost24.com byethost24.com = www.softtotal.com.br www.firehost.com.br Panambi - RS - Mensagem original De: Ricardo César Cardoso ricardo_engsoft@ mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36 Assunto: Re: [delphi-br] Sistema de Lan House Estou finalizando um sistema de lan house (fase de personalização do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso negociar os fontes. É um sistema relativamente simples, já que na versão onde estou trabalhando não há necessidade de controlar execução de jogos e/ou programas. É só o controle de tempo de uso mesmo. Contato em PVT. Sds, Ricardo. Humberto humbertogrupos@ terra.com. br escreveu: Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ [As partes
RES: [delphi-br] Sistema de Lan House
Não testei, mas o ForceForegroundWindow herda de SetForegroundWindows os eventos padrões e acho que bloqueia os demais aplicativos... Vale a pena testar e conferir... Assim que tiver o resultado avise-nos... ok ?! Segue o código: function ForceForegroundWindow(hwnd: THandle): Boolean; const SPI_GETFOREGROUNDLOCKTIMEOUT = $2000; SPI_SETFOREGROUNDLOCKTIMEOUT = $2001; var ForegroundThreadID: DWORD; ThisThreadID: DWORD; timeout: DWORD; begin if IsIconic(hwnd) then ShowWindow(hwnd, SW_RESTORE); if GetForegroundWindow = hwnd then Result := True else begin if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion 4)) or ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and ((Win32MajorVersion 4) or ((Win32MajorVersion = 4) and (Win32MinorVersion 0 then begin Result := False; ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow, nil); ThisThreadID := GetWindowThreadPRocessId(hwnd, nil); if AttachThreadInput(ThisThreadID, ForegroundThreadID, True) then begin BringWindowToTop(hwnd); SetForegroundWindow(hwnd); AttachThreadInput(ThisThreadID, ForegroundThreadID, False); Result := (GetForegroundWindow = hwnd); end; if not Result then begin SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0); SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE); BringWindowToTop(hwnd); SetForegroundWindow(hWnd); SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE); end; end else begin BringWindowToTop(hwnd); SetForegroundWindow(hwnd); end; Result := (GetForegroundWindow = hwnd); end; end; { ForceForegroundWindow } //** procedure ForceForegroundWindow(hwnd: THandle); var hlp: TForm; begin hlp := TForm.Create(nil); try hlp.BorderStyle := bsNone; hlp.SetBounds(0, 0, 1, 1); hlp.FormStyle := fsStayOnTop; hlp.Show; mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); SetForegroundWindow(hwnd); finally hlp.Free; end; end; //** procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall; external user32 Name 'SwitchToThisWindow'; {x = false: Size unchanged, x = true: normal size} procedure TForm1.Button2Click(Sender: TObject); begin SwitchToThisWindow(FindWindow('notepad', nil), True); end; Até a próxima... Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Henry Maltz Enviada em: quarta-feira, 14 de fevereiro de 2007 08:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema de Lan House Rodrigo, por favor poste na lista ou me coloque no CC, pios tenho interesse em saber deste comando... valeu On 2/14/07, Rodrigo Madureira Barbosa rodrigo.madu@ mailto:rodrigo.madu%40gmail.com gmail.com wrote: Existe alguns comandos da API do windows que congelam um form na tela impedindo a execução de outros... Tente algo como SetForegroungWindows, ou coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na lista mesmo pra todos poderem compartilhar... Até + Rodrigo _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jeferson Adoryan Enviada em: terça-feira, 13 de fevereiro de 2007 09:38 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br Assunto: Res: [delphi-br] Sistema de Lan House Dae galera Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte, enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso) nao permitir executar nenhum programa. Tive alguns problemas com micros usando teclado multimidia. Sera que isso é possivel?? Valeu ___ Jeferson Adoryan Técnico em Desenvolvimento de Software Objetiva Informática LTDA Fone: (55) 3375 3828 Celular: (55) 8115 4544 Linux Counter #404063 Home Page: http://adoryan. http://adoryan. http://adoryan.byethost24.com byethost24.com byethost24.com = www.softtotal.com.br www.firehost.com.br Panambi - RS - Mensagem original De: Ricardo César Cardoso ricardo_engsoft@ mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36 Assunto: Re: [delphi-br] Sistema de Lan House Estou finalizando um sistema de lan house (fase
RES: [delphi-br] Pegar o MAC do micro - duvidas
Bom, se está indicando que o cabo de rede está desconectado, é sinal que a placa está ativa, caso contrário ela não daria a mensagem e não estaria no systray... É melhor verificar esta situação... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 14:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br .com.br mailto:escobar%40megasistema.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um número de série gravador na sua placa de rede, cada uma tem o seu (acontece de repetir, mas é raro, então esqueca isso por enquanto, mas saiba que acontece!).. SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. exemplo de MAC : 00:0A:E6:40:1B:49 ou 000A:E640:1B49 ou 000AE6401B49 é um valor de 48 bit´s. então a cada 281.474.976.710.655 vai se repetir rsrsrsrs não é bem assim não, mas deixa isso pra lá heheheheh O que pode mudar é o número de IP.. exemplo de IP´s internos, intranet: subistitua o X por um valor entre 1 e 254 192.168.0.x 10.x.x.x 169.x.x.x exemplo de IP´s externos, internet: subistitua o X por um valor entre 1 e 254 64.x.x.x 200.x.x.x 201.x.x.x etc... Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre vai ser o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele vai pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 acho que vem zerado.mas ja faz tempo nao lembro... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 3:54 PM Subject: [delphi-br] Pegar o MAC do micro - duvidas Pessoal, estou com duvidas.. Alguém já tem essas respostas?? estou passando por um problema, que ta dificil de resolver, tenho um palpite, mas não consegui um definição certa. ai vai minhas duvidas: usando WINXP: qdo pego o serial MAC pelo Delphi quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? usando WIN98 quando estou com um cabo de rede ligado em meu pc mas com conexao desativada, recebo o numero de MAC? ou vem zerado ()?? quando estou com o cabo ligado e a rede ligada sei que vem a identificação 021AD122 (exemplo); quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? se eu tiver modem, e não placa de Rede... recebo algum valor para MAC?? com cabo desconectado mesmo
RES: [delphi-br] Pegar o MAC do micro - duvidas
Tenho uma aqui... se servir... aí está... function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external 'ole32.dll'; function GetMACAddress: string; var g: TGUID; i: Byte; begin Result := ''; CoCreateGUID(g); for i := 2 to 7 do Result := Result + IntToHex(g.D4[i], 2); end; Fui... Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Filiano (America Soft) Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui sim! Luiz Escobar escreveu: se quizer mandar ela pra gente dar uma olhada acho q fica mais facil... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Thiago Filiano (America Soft) To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, February 12, 2007 3:16 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas então Luiz, tenho sim.. e eh aqui q esta o problema.. minha rotina esta pegando o MAC certinho, mas acontece que tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo assim está identificando o MAC dele. a rotina foi feita para identificar o MAC somente com placa de rede ativa. não sei o que esta ocorrendo :( []'s Thiago Luiz Escobar escreveu: Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q as q tenho são usando API´s Creio que isso seria de grande ajuda para todos. obrigado. Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br http://www.megasist http://www.megasistema.com.br ema.com.br - Original Message - From: Andre Veloso de Mesquita To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 8:25 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas Nota: No Windows é possível trocar o MAC. O MAC não será trocado na placa de rede, mas sim na camada lógica do Windows. Logo, quando vc ler o MAC, tente lê-lo no dispositivo e não usando uma API qq do Windows. [ ]'s - Original Message - From: Luiz Escobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br .com.br mailto:escobar%40megasistema.com.br mailto:escobar%40megasistema.com.br To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 5:22 PM Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas BLZ Thiago.. Bom o modem não tem MAC-address, pode até ter um código de indentificação, mas não sei como pegar isso MAC-address é um número de série gravador na sua placa de rede, cada uma tem o seu (acontece de repetir, mas é raro, então esqueca isso por enquanto, mas saiba que acontece!).. SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número MAC. exemplo de MAC : 00:0A:E6:40:1B:49 ou 000A:E640:1B49 ou 000AE6401B49 é um valor de 48 bit´s. então a cada 281.474.976.710.655 vai se repetir rsrsrsrs não é bem assim não, mas deixa isso pra lá heheheheh O que pode mudar é o número de IP.. exemplo de IP´s internos, intranet: subistitua o X por um valor entre 1 e 254 192.168.0.x 10.x.x.x 169.x.x.x exemplo de IP´s externos, internet: subistitua o X por um valor entre 1 e 254 64.x.x.x 200.x.x.x 201.x.x.x etc... Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre vai ser o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele vai pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 acho que vem zerado.mas ja faz tempo nao lembro... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasist http://www.megasistema.com.br ema.com.br
RES: [delphi-br] Carga horária programador
Uhahuahuauha... 8 horas semanais ?? vou exigir meus direitos... rsrsrs quero trabalhar no horário contrário ao que trabalho, de 12 as 14 de seg. a quinta só... uahhuahuahuahua Valeu... (só pra descontrair) Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Mota Enviada em: quarta-feira, 7 de fevereiro de 2007 20:50 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Carga horária programador Um programador é um funcionario normal .segundo a CLT . 8 horas semanaissoh dar uma olhada no regime e no código da CLT... Abs, Rodrigo Mota. _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de sidneidelphi@ mailto:sidneidelphi%40yahoo.com.br yahoo.com.br Enviada em: quarta-feira, 7 de fevereiro de 2007 19:47 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Carga horária programador Caro colega, também estou atráz dessa informação a tempos, e ainda não encontrei. Cheguei a abandonar a idéia de correr atraz disso, pois ninguem sabe... Boa Sorte e com certeza, se encontrar algo replique no fórum... - Original Message - From: Marcos André To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Wednesday, February 07, 2007 10:39 AM Subject: [delphi-br] Carga horária programador Olá Pessoal, gostaria de saber se existe alguma lei que define a carga horária semanal de um programador, será que alguém pode me dizer ou enviar um link, algo que responda esta pergunta? Muito obrigado... -- Um abraço Marcos André [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.17.30/674 - Release Date: 7/2/2007 15:33 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Itabyte®[off]-Sistemas p/ P osto Gasolina !!!
Trabalho em uma empresa líder na nossa região em automação de postos de combustíveis e lojas de conveniência. Se tiver interesse em se tornar um de nossos representantes entre em contato conosco respondendo este e-mail ou acessando www.gerpos.com.br. Atenciosamente Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Itabyte® Enviada em: terça-feira, 6 de fevereiro de 2007 09:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Itabyte®[off]-Sistemas p/ Posto Gasolina !!! Itabyte®[off]-Sistemas p/ Posto Gasolina !!! Bom dia , amigos , estou precisando de um sistema de posto de gasolina , como sei que esses sistemas são bem complexos e a falta de tempo para desenvolver , pergunto se alguem tem interesse em fazermos uma parceria , se interessar a alguem a parceria favor entrar em contato via msn ou skype sitados abaixo...Grato !!! JESUS TE AMA !!! Itabyte Tecnologia®-www.itabyte.com MarcioCC® Analista/Programador - For Delphi MSN : [EMAIL PROTECTED] SKYPE : itabytetec Fone : 15-3524-1946 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] [OFF] ATENÇÃO
Alguém afim de adquirir os fontes de um sistema de controle de vendas, estoque e financeiro ? Interessados me respondam em PVT pedindo maiores informações que eu mandarei, imagens, metadata do banco, etc... Estou descontinuando o sistema e por isso ofereço a todos vocês... Aguardo retorno... [ ]s Rodrigo Madureira ( Delphi + Firebird + IBO + Fortes ) [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Fazer referencia ao DataSource do form chamador
Tente criar no Form2 uma variável pública do tipo TClientDataSet e sete-a na abretura do Form2 pelo Form1... Ex: (No chamada do Form2 pelo Form1) Form2 := Tform2.Create(Application); Form2.Client := SeuClientDataSet; Form2.ShowModal; FreeAndNil(Form2); No momento de utilizá-lo, tente um typecast como exemplificado abaixo... Ex.: (No botão do Form2, que mandará informações para o Client do Form1) TClientDataSet(Client).EmptyDataSet; TClientDataSet(Client).Append; ... passa-se as informações ... TClientDataSet(Client).Post; OBS.: Onde Client é a variável pública que vc criou... Dessa forma acho que funfa... mas não tentei... é um exemplo de cabeça... testa aí e nos diz o resultado... Rodrigo Madureira Barbosa _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tavares Enviada em: segunda-feira, 5 de fevereiro de 2007 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Fazer referencia ao DataSource do form chamador Prioridade: Alta Bom dia a todos, Trabalho com 2 forms dessa forma: O primeiro possui o dbgrid e o TDataSource que faz a ligacao do banco. A partir desse formulario tenho funções (botoes) que chama um outro formulario que permite fazer manutenção (inclusao, etc.) na referida tabela. Este form de manutenção atende a diversos cadastros, ou seja, o mesmo é criado para diversas tabelas do mesmo banco. Minha duvida esta em como fazer referencia, de forma dinamica, ao Form 1 que chamou o form 2, pois o form1 muda de acordo com a tabela chamada. Tenho como fazer essa referencia no form2, sem que eu informe no USES do form2 a unit do form1? Um abraço. Tavares Tudo que nos acontece nos favorece se a gente não se aborrece e agradece. (Frei Pascoal) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ótima oportunidade -- ATENÇÃO (Venda d e código-fonte) OFF
Gostaria de mais uma vez comunicar a todos... Tenho um software de controle de materiais Diamantados, que são insumos para indústrias do setor de mármores e granitos. Estou com interesse em descontinuá-lo, e gostaria de saber se existe alguém interessado em comprar os fontes. Quanto mais pessoas aparecerem, menor será o valor final. E vale a pena porque o software está muito bem montado, usando Firebird 1.5 e Delphi 7 com IBO e ReportBuilder. O Software conta com controle de estoque com histórico individualizado de Serras diamantadas, conta com um financeiro com controle de comissões e permutas, e conta com a parte de vendas, com controle de pedidos e orçamentos. Os interessados podem me procurar em pvt no e-mail (rodrigo.madu@ mailto:rodrigo.madu%40gmail.com gmail.com). Pretendo encerrar a disponibilidade dos fontes até a primeira quinzena do próximo mês (fevereiro), procurem maiores informações, eu mandarei fotos e exemplos do sistema, que ainda é multi-empresa e multi-usuários. Mesmo que não seja para o mesmo setor, o software será muito útil pra vc que queira montar hoje um pacote básico para uso em qualquer setor do mercado (Estoque Vendas Financeiro). Trabalho a mais de 6 anos como Analista/Desenvolvedor, podendo garantir que é uma ótima oportunidade. Entrem em contato. Aguardo a todos. [ ]s Rodrigo Madureira ( Delphi + Firebird + IBO + Fortes ) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ótima Oportunidade -- ATENÇÃO
Tenho um software de controle de materiais Diamantados, que são insumos para indústrias do setor de mármores e granitos. Estou com interesse em descontinuá-lo, e gostaria de saber se existe alguém interessado em comprar os fontes. Quanto mais pessoas aparecerem, menor será o valor final. E vale a pena porque o software está muito bem montado, usando Firebird 1.5 e Delphi 7 com IBO e ReportBuilder. O Software conta com controle de estoque com histórico individualizado de Serras diamantadas, conta com um financeiro com controle de comissões e permutas, e conta com a parte de vendas, com controle de pedidos e orçamentos. Os interessados podem me procurar em pvt no e-mail ([EMAIL PROTECTED]). Pretendo encerrar a disponibilidade dos fontes até a primeira quinzena do próximo mês (fevereiro), procurem maiores informações, eu mandarei fotos e exemplos do sistema, que ainda é multi-empresa e multi-usuários. Mesmo que não seja para o mesmo setor, o software será muito útil pra vc que queira montar hoje um pacote básico para uso em qualquer setor do mercado (Estoque Vendas Financeiro). Trabalho a mais de 6 anos como Analista/Desenvolvedor, podendo garantir que é uma ótima oportunidade. Entrem em contato. Aguardo a todos. [ ]s Rodrigo Madureira ( Delphi + Firebird + IBO + Fortes ) [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Automação Comercial
Cara, não complica, essa é a primeira dica pra vc faça apenas o que seu cliente necessite, nem mais nem menos... pra começar, basicamente coloque informações como Identificação (Nome, Razão Social, Nome Fantasia, CPF, CNPJ, RG, IE, etc...), endereço (Rua, Nº, Complemento, Bairro, Cidade, Estado, CEP, Etc...) e se possível, crie uma tabela única no banco, setando apenas o tipo do cadastro. É uma forma mais simples de no futuro vc dizer que o cliente também é um fornecedor, sem ter que obrigar o usuário lançar novamente as informações no sistema. Com relação a financeiro, o básico é um Contas a Pagar e Receber, com as funções de Inclusão de novos títulos, Baixa, Baixa Parcial, Cancelamento, Prorrogação e Estorno. Não se preocupe com plano de contas ou controle de caixa se o seu sistema vai ser pequeno. Vendas, apenas telas de lançamento de informações como Orçamentos e Pedidos. Seleciona-se o cliente, os itens que ele quer comprar e fecha-se o pedido. Simples e prático. Se for emitir nota fiscal, esteja bastante ciente de como trabalhar com CFOP e Tributação em Geral. Caso contrário, desconsidere. Não tem segredo nem mistério... Se quiser mais informações e se tiver interesse em investir no negócio, recomendo a série Sistemas Integrados com Delphi 2005, são livros que da primeira a última página, te ensinam de forma prática e passo a passo como montar um bom sistema. Tem um que é exatamente o que vc procura, Financeiro, Vendas e Estoque. Até TEF e ECF é abordado pelo livro... muito bom, mas é pelo menos uns 130 a 180 reais cada um... www.livrosdeprogramacao.com.br http://www.livrosdeprogramacao.com.br/ Esse é o site. Vale a pena conferir. Quer outra dica ?? Usa MDO com Firebird... prático, rápido, desenvolvido por brasileiros (MDO), e grátis... não tem nada melhor... Falô... até + Rodrigo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Berti Enviada em: quinta-feira, 18 de janeiro de 2007 16:37 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Automação Comercial Prioridade: Alta Olá Pessoal, eu estou querendo montar um sistema comercial, só que não sei o que colocar por exemplo, no cadastro de produtos, clientes, fornecedores, etc... Peguei bastante coisa da internet, sistemas prontos, mas sempre um pede coisas e outro pede coisas bem diferentes... Alguém sabe o que pode ser melhor para fazer cadastros em um sistema genérico? Tipo Cliente, Fornecedor, Produto, Contas Pagar/Receber, e/ou o que vai nesses? Eu to fazendo um colega que tem uma lojinha, mas quero ampliar ele pra poder vendar pra mais pessoas, mas preciso de algo pra poder oferecer Se esse tipo de dúvida vai contra regras ou coisa do tipo, por favor, desconsiderar! Se não, eu ficarei muito grato mesmo pela ajuda de você Abraços! Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Automação Comercial
Puts... isso é que é foda Levantar as demandas, estudar as regras de negócio e os processos para depois analizar e construir os macrofluxos que serão convertidos em linhas de código Cara, parece que ninguém aqui começou do zero... esse aí de cima tinha um notebook no útero... com certeza... O que o cara quer saber é como começar... que tipo de componente usar... como proceder. Não quer saber como montar um Macrofluxo e destrinchá-lo em código... Quer saber exatamente o que significa. Pô... não sabe brincar, guarda os carrinhos... huahuahua Pêxe, preocupe-se em começar... Sabe como proceder ? primeiro tem que saber o que o seu amigo faz na empresa dele. Emite nota fiscal ? Vende o que ? Roupa ? Calçados ? Seus produtos tem que ser vendidos nas unidades padrões. Ele vende apenas peças ? ele vende caixa com 12 peças ? Ele faz devoluções ? controla estoque ? Quer que o sistema lhe avise quando comprar mais produto ? Quer limitar crédito dos clientes ? Quer controlar cheque ? Ele tem vendedores externos ? Calcula comissões ? Emite Pedidos ? Orçamentos ? Recebe com cartão de crédito ? São as perguntas que vc tem que se fazer. É analisar a forma de trabalho dele nos mínimos detalhes. O Rascunho é o mesmo pra todo mundo. A diferença é que as vezes alguém não quer um controle de estoques, ou não quer emitir notas ficais. Agora. Fujir da regra : Entrada de produtos -- Venda -- Saída de produtos, ninguém foge. O que se acrescenta a isso tudo é o que vem derivado disso. Entrou produto ? incremente o saldo do mesmo. São unidades diferentes ? Use uma conversão de unidades pra saber se dentro de 1 caixa que deu entrada no sistema tem 12 peças. Tem financeiro ? Gere o Contas a pagar para o seu fornecedor. Era a vista ? Então gere e baixe automaticamente. Vendeu ? Tem vendedor na jogada ? Vai calcular comissão ?? Gere e guarde separadamente dos seus títulos de CR e CP, e se possível, gere percentualizado. Se são 3 parcelas pra receber do cliente. Gere as comissões também em 3 parcelas. É como a maioria das empresas faz, mas pra tudo há uma exceção. Lembre-se de sempre parametrizar o seu sistema. Minimiza trabalho e quanto mais parametrizado melhor pra vc, pode servir pra um número maior de pessoas. Deu saída no produto ? Dê baixa do saldo, verifique se o cliente controla estoque mínimo e em caso positivo, dispare uma ordem de compra pra ele se o seu saldo alcançou ou passou do seu estoque mínimo. Isso é o básico do básico. Mas não tem nenhum segredo. É o detalhamento dos tais MacroFluxos. Bom censo e curiosidade pra poder perguntar bastante resolvem o seu problema. Tem que ter carão e capricho. Se montar direitinho o sistema, arruma cliente. É sempre assim. Qualquer coisa estamos aí. Abraços. Rodrigo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Automação Comercial
Obrigado Rodrigo, é bem por isso mesmo que eu quero saber! Vou seguir suas dicas, muito obrigado! Abraços Ricardo Berti Engraçado, acho que quem recebeu o agradecimento fui eu né ?! Por nada Ricardo. Aqui na Delphi-BR vc conta com Amigos, não só com críticos, ok ?! Lembre-se dos livros que te indiquei, lá contém tudo o que com certeza nosso amigo aqui corrigiu dos erros de português, e das bobagens ou assincronismos. Não estive aqui pra lhe ensinar como construir um ERP no seu primeiro projeto, apenas lhe mostrei onde buscar maiores informações pra começar o que no futuro pode se tornar um verdadeiro ERP. Até a próxima... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Chagas (Yahoo) Enviada em: sexta-feira, 19 de janeiro de 2007 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Automação Comercial Put's... isso é que é foda Realmente isto é que é foda O que o cara quer saber é como começar... que tipo de componente usar... como proceder. Não quer saber como montar um Macrofluxo e destrinchá-lo em código... Quer saber exatamente o que significa. É muito facil (principalmente quando não se tem argumentação) ensinar alguem a começar pelas metades do que ensinar o caminho das pedras de forma correta. Aliás, o Fernando Anselmo já dizia isso aqui na delphi- br lá pelo ano 2000 Mas estamos em pleno Século XXI e ainda tem Analiixxtas que insistem na tese de que o sistema começa pela IDE. Depois, vocês se deparam aí fora com sistemas mal feitos, mal elaborados e que operam sobre bases totalmente mal estruturadas e vem falar mal de quem fez. CLARO! Quando alguém aqui pergunta qual a forma correta de se começar, vem um exxpet, falando um caminhão de bobagens e totalmente assíncronas com pergunta inicial, induzir o cara a fazer a coisa da forma totalmente errada e confusa né... Aliás, quem fala em tais MacroFluxos. Bom censo com C e não com S, dispensa comentários... São os Analxtas do mercado []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] mailto:wchagasj%40yahoo.com.br com.br http://www.geocitie http://www.geocities.com/SiliconValley/Bay/1058 s.com/SiliconValley/Bay/1058 MSN: whitesockets@ mailto:whitesockets%40hotmail.com hotmail.com --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Madureira Barbosa [EMAIL PROTECTED] escreveu Put's... isso é que é foda Levantar as demandas, estudar as regras de negócio e os processos para depois analizar e construir os macrofluxos que serão convertidos em linhas de código Cara, parece que ninguém aqui começou do zero... esse aí de cima tinha um notebook no útero... com certeza... O que o cara quer saber é como começar... que tipo de componente usar... como proceder. Não quer saber como montar um Macrofluxo e destrinchá-lo em código... Quer saber exatamente o que significa. Pô... não sabe brincar, guarda os carrinhos... huahuahua Pêxe, preocupe-se em começar... Sabe como proceder ? primeiro tem que saber o que o seu amigo faz na empresa dele. Emite nota fiscal ? Vende o que ? Roupa ? Calçados ? Seus produtos tem que ser vendidos nas unidades padrões. Ele vende apenas peças ? ele vende caixa com 12 peças ? Ele faz devoluções ? controla estoque ? Quer que o sistema lhe avise quando comprar mais produto ? Quer limitar crédito dos clientes ? Quer controlar cheque ? Ele tem vendedores externos ? Calcula comissões ? Emite Pedidos ? Orçamentos ? Recebe com cartão de crédito ? São as perguntas que vc tem que se fazer. É analisar a forma de trabalho dele nos mínimos detalhes. O Rascunho é o mesmo pra todo mundo. A diferença é que as vezes alguém não quer um controle de estoques, ou não quer emitir notas ficais. Agora. Fujir da regra : Entrada de produtos -- Venda -- Saída de produtos, ninguém foge. O que se acrescenta a isso tudo é o que vem derivado disso. Entrou produto ? incremente o saldo do mesmo. São unidades diferentes ? Use uma conversão de unidades pra saber se dentro de 1 caixa que deu entrada no sistema tem 12 peças. Tem financeiro ? Gere o Contas a pagar para o seu fornecedor. Era a vista ? Então gere e baixe automaticamente. Vendeu ? Tem vendedor na jogada ? Vai calcular comissão ?? Gere e guarde separadamente dos seus títulos de CR e CP, e se possível, gere percentualizado. Se são 3 parcelas pra receber do cliente. Gere as comissões também em 3 parcelas. É como a maioria das empresas faz, mas pra tudo há uma exceção. Lembre-se de sempre parametrizar o seu sistema. Minimiza trabalho e quanto mais parametrizado melhor pra vc, pode servir pra um número maior de pessoas. Deu saída no produto ? Dê baixa do saldo, verifique se o cliente controla estoque mínimo e em caso positivo, dispare uma ordem de compra pra ele se o seu saldo alcançou ou passou do seu estoque mínimo
RES: [delphi-br] Automação Comercial
Apenas dei uma folheada no livro, mas deu pra ter a noção de que é bem prático e aborda o necessário para que alguém comece a utilizar um compilador com algum objetivo específico. Bom pra quem está começando e ainda não tem a pretensão de partir pra dentro de uma empresa sem antes conhecer um método de trabalho. Rodrigo. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Anderson RB Enviada em: sexta-feira, 19 de janeiro de 2007 17:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Automação Comercial O livro que vc cita de exemplo é bom mesmo, vc ja viu pessoalmente? Anderson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ENC: Formatação de Path da Base de dados a partir dos protocolos de conexão via Delphi
Olá. Estou usando IBO e pra carregar as informações a minha IBConnection, preciso formatar o cominho da base de dados (Path). Sendo assim, estou montando uma pequena rotina: case Conexao.Protocolo of Ord(cpLocal ): DmConexao.RKConexao.DatabaseName := Conexao.Local; Ord(cpNetBEUI): DmConexao.RKConexao.DatabaseName := Format('\\%s\%s',[Conexao.Servidor,Conexao.Local]); Ord(cpTCP_IP ): DmConexao.RKConexao.DatabaseName := Format('%s:%s' ,[Conexao.Servidor,Conexao.Local]); Ord(cpNovell ): DmConexao.RKConexao.DatabaseName := Format('[EMAIL PROTECTED]' ,[Conexao.Servidor,Conexao.Local]); end; Mas as informações que me foram passadas quanto à formatação do path para NetBEUI e Novell não procedem. Alguém sabe a formatação correta qual é ?? Para local basta informarmos o caminho da base, para TCP/IP, colocamos um dois pontos ( : ) entre o server e o caminho (Server : Caminho). E quanto ao Novell e ao NetBEUI ?? Aguardo ajuda dos amigos. Até a próxima... Rodrigo Madureira Barbosa [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formatação de Path da Base de dados a partir dos proto colos de conexão via Delphi
Olá. Estou usando IBO e pra carregar as informações a minha IBConnection, preciso formatar o cominho da base de dados (Path). Sendo assim, estou montando uma pequena rotina: case Conexao.Protocolo of Ord(cpLocal ): DmConexao.RKConexao.DatabaseName := Conexao.Local; Ord(cpNetBEUI): DmConexao.RKConexao.DatabaseName := Format('\\%s\%s',[Conexao.Servidor,Conexao.Local]); Ord(cpTCP_IP ): DmConexao.RKConexao.DatabaseName := Format('%s:%s' ,[Conexao.Servidor,Conexao.Local]); Ord(cpNovell ): DmConexao.RKConexao.DatabaseName := Format('[EMAIL PROTECTED]' ,[Conexao.Servidor,Conexao.Local]); end; Mas as informações que me foram passadas quanto à formatação do path para NetBEUI e Novell não procedem. Alguém sabe a formatação correta qual é ?? Para local basta informarmos o caminho da base, para TCP/IP, colocamos um dois pontos ( : ) entre o server e o caminho (Server : Caminho). E quanto ao Novell e ao NetBEUI ?? Aguardo ajuda dos amigos. Até a próxima... Rodrigo Madureira Barbosa [As partes desta mensagem que não continham texto foram removidas]