Re: [delphi-br] CONECTAR O BANCO DE DADOS VIA NET COM ZEOSCONECTION
Boa Tarde amigo Você pode conectar utilizando o IP do host que disponibiliza o banco de dados. Isto e feito acrescentando “:” (exemplo: 192.168.0.1:C\Diretório|Banco|NomeBanco.gdb). Veja se lhe ajuda!! Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [OT] - Re: [delphi-br] Função para Atu alizar Estoque
Minha sincera opinião. O pessoal da área de informática, principalmente os programadores são sempre assim, todo mundo acha que sabe muito, mais sabe apenas aquilo que sempre fez, tem muito programador experiente que escreve muitas linhas de código para fazer coisas simples e só ele consegue entender o que fez. Aqui neste fórum basta ter uma pergunta que a maioria acha simples ou não coerente para que muitos usem isso como ponto para criticas, porque não vão tentar ajudar? Porque não perdem o seu valioso tempo com coisas úteis? Participo de outros fóruns e posso afirma que este e muito bom mais esta longe de ser o melhor, porque tem muita gente aqui que se acha o rei da cocada preta. O que mais tem e programador medíocre com seus códigos absurdos e sistemas lixo, sem documentação e sem padrão algum. E péssimo ter que falar estas coisas, pois sei que tem muita gente boa que realmente ajuda muito, mais a maioria não contribui em nada, apenas fica na espera da próxima vitima. Acho que está faltando está regra no fórum. Critica não vai ser a melhor solução, pois uma coisa que pode simples para alguns pode ser complexa para outros, ninguém sabe tudo. As pessoas que vencem neste mundo são as que procuram as circunstâncias de que precisam e, quando não as encontram, as criam. Bernard Shaw Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [OT] - Re: [delphi-br] Função para Atu alizar Estoque
Muito boa á pergunta. Listo a baixo os motivos pelos quais não pude ajudar. 1 Em primeiro lugar, a resposta inicial a pergunta já foi uma critica, quando na verdade deveria ser: Amigo poste uma descrição mais detalhada do seu problema, para que todos possa entender melhor a sua situação. 2- Logo em seguida uma tonela de post que não resolvia o problema apenas seguia a mesma linha de raciocínio. 3- A pergunta não tinha informações suficientes para se chegar a uma resposta viável, e melhor calar que falar besteira. 4- A minha experiência em delphi e um seguimento que não tem controle de estoque. 5 Já tenho um bom tempo de experiência em delphi e ainda estou aprendendo, não sei fazer qualquer função que faça isso ou aquilo, procuro estudar muito e só em último caso eu posto na lista. 6 Não tive a intenção que indagar ninguém em especial, apenas dei minha sincera opinião em relação à área de programação. Estas são algumas das questões que acredito ser o motivo pelo qual eu não ajudei a resolver o problema. Informação é a moeda corrente da era do conhecimento. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualiza Status
Você pode fazer isso de varias formas, vai depender do resultado final. Ex. pega um componente da paleta Data Controls. ” DBRadioGroup” na propriedade values você coloca suas opções : Emprestado Disponivel Estes valores serão gravados no banco, recomendo você usar “S” ou “N” fica mais fácil. Vai em “Itens” e coloca as opções que você vai visualizar no formulário na mesma seqüência das alternativas. Depois e só ligar o seu datasource, datafiel o campo que será usado para a gravação. Espero ter ajudado!! Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] - List index out of bounds (0).
Muito grato mesmo amigo Mais eu Alterei o layout do arquivo de importação acrescentando ; agora o código consegue fazer a gravação corretamente dos dados. Mais ao concluir a importação gera a seguinte mensagem de erro: Exception class EstringListError with message List index out of bounds (0). 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; 3351781;MARIA DA PENHA CAUS;69601640444;055;021;46671479;015;46687415;013;48879253; Agradeço a ajuda - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] - List index out of bounds (0).
Já estou pesquisando a horas uma solução para este problema, preciso da ajuda
do grupo delphi-br. referencia inexistente
segue o meu codigo:
procedure TfrmImportacao.btnImportaClick(Sender: TObject);
var
fArq: TextFile; //Variável do Tipo Arquivo de Texto
Caminho: string; //Variável que armazenará o caminho
Linha: string; //Variável que vai armazenar cada linha
mTexto: TStringList; //Utilizada para contar as linhas a importar
i: integer; //variável utilizada no contador de linhas Importadas
sl_linha:TStringList;
begin
Caminho := editArquivo.Text; //Variavel vai receber os dados do edit
AssignFile(fArq, Caminho);
ReSet(fArq);
mTexto := TStringList.Create;
sl_linha:=TStringList.create;
sl_linha.Delimiter:=';';
try
mTexto.LoadFromFile(Caminho);
ProgressBar1.Max := mTexto.Count - 1;
i := 0;
finally
mTexto.Free;
end;
while not Eof(fArq) do //Enquanto não chegar ao fim do arquivo
begin
Application.ProcessMessages;
Readln(farq, linha); //Lê a linha e posiciona o cursor na próxima
sl_linha.DelimitedText := linha;
frmImportacao.Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: ' +
IntToStr(ProgressBar1.Max);
DM.cdsImportacao.Open; //Abre o CDS
//
if DM.cdsImportacao.IsEmpty then //Se Não existir o registro
DM.cdsImportacao.Append //Insira os dados da linha atual
else //Senão, se o registro já existir
DM.cdsImportacao.Append; // mesmo ezistindo ele inseri
//Aqui os campos recebem as linhas lidas
DM.cdsImportacaocod_integracao.AsString :=sl_linha[0];
DM.cdsImportacaonome.AsString :=sl_linha[1];
DM.cdsImportacaocontato.AsString:=sl_linha[2];
DM.cdsImportacaoddi.AsString:=sl_linha[3];
DM.cdsImportacaoddd.AsString:=sl_linha[4];
DM.cdsImportacaofone.AsString :=sl_linha[5];
DM.cdsImportacaoddd_2.AsString :=sl_linha[6];
DM.cdsImportacaofone_2.AsString :=sl_linha[7];
DM.cdsImportacaoddd_3.AsString :=sl_linha[8];
DM.cdsImportacaofone_3.AsString :=sl_linha[9];
DM.cdsImportacao.Post; //Salve o registro em memória
DM.cdsImportacao.ApplyUpdates(0); //Aplica as atualizações em memória no
banco
DM.cdsImportacao.Close; //Fecha o CDS }
Inc(i);
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
ShowMessage('Processo Concluído Com êxito!!!');
DM.cdsImportacao.Close;
btnImporta.Enabled:=False;
end;
-
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Alterando delimitador de um arquivo txt para ';'
Boa tarde deu certo, mais ocorre o seguinte: Agora debugando o código verifique que : DM.cdsImportacaocod_integracao.AsString esta pegando o valor correto. Mais em DM.cdsImportacaonome.AsString esta pegando apenas o 1 nome, como o restante do nome esta com espaço ele esta jogando o resto para o outro campo, gerando erro. Agradeço a ajuda!! - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Alterando delimitador de um arquivo txt para ';'
Amigo, nem sei como lhe agradecer.. estava a dias tentando resolver este problema, tentei de todas as formas e ninguem respondia uma coisa certa. So houve um pequeno problemas // DM.cdsImportacaocontato.AsString := mLinhaTexto[2]; nesta linha tive que comentar pois gerava um erro, pegava um valor totalmente diferente.. Se possível gostaria de saber quanto ficaria para você me dar uma consultoria, pois estou com um projeto novo e tem algumas coisa que estou em dúvida, ou seja até consigo fazer o código mais sempre falta alguma coisa que trava o meu trabalho. Caso aceite me ajudar , podemos nos falar a noite pelo msn : [EMAIL PROTECTED] ou me enviar um telefone ou celular que eu ligo para conversarmos. Muito grato!! - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Ajuda com Importação de dados em TXT
Boa Tarde Jean Após verificar o código, encontrei os campos que gerava erro, mais pude verificar que os campos inseridos na base está com as informações pela metade. Ex: Código no txt = 1343489 No Banco = 1343489 Nome no txt = KATIA LUCIATO DE OLIVEIRA No Banco = IA LUCIATO DE OLIVEI Produto no txt = 37740858897 Produto no banco = E OLIVEIRA Como proceder para contar os campos de forma que esteja correto? Acredito que o erro deva ser o fato de esta jogando parte de uma informação de um campo em outro diferente. Agradeço a ajuda, - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Ftp no delphi
Valeu mesmo Marços Vou pesquisar um pouco mais. Muito grato!! Marcus Vinicius Pavan [EMAIL PROTECTED] escreveu: Meu caro. Componente idFTP / INDY É só pesquisar no google que vc acha toneladas de exemplos. Tem para todo gosto ! []´s Pavan. -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Gravar caminho de imagens no registro do windows
Muito Obrigado..
Carregando o caminho do arquivo, adicionei na uses a instrução FileCtrl
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Dir : String;
begin
if SelectDirectory('Selecione um diretório.','',Dir) then
editImagem.Text := Dir;
end;
De certo... valeu!!
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Gravar caminho de imagens no registro do windows
Desculpa, não expressei bem.. O que quis dizer e o seguinte.. após gravar o novo caminho para armazenar as imagens, o sistema só reconhece esta alteração apos ser reiniciado. alguém saberia como fazer esta atualização de forma automática? Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Eu não entendi. Que parâmetro? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: quinta-feira, 5 de junho de 2008 16:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Gravar caminho de imagens no registro do windows Amigos.. Apos determinar o caminho da pasta onde será gravado as imagens tenho em uma outra tela um comando de inserir a imagem. Onde consigo gravar a imagem na pasta configurada no parametro. O problema e que o sistema só reconhece uma alteração feita no parametro se fechar o sistema e abri-lo novamente, alguém saberia como fazer esta atualização de forma automática? Agradeço a ajuda!! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi for PHP 2
Está e uma ótima notícia, pois já estou testando deste a versão 1 preciso baixar uma demonstração e verificar isso. Espero que a codegear possa melhorar a qualidade do help pegando como exemplo o help do Flex da Adobe. att.. between -00-00 and -99-99 - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Passar parâmetros para a que ry!
Bom dia Seguindo a lógica do amigo Moacir poderia ser feito assim. Você tem um cadastro de Turma e precisa preencher o campo curso, o curso deve ter uma consulta para que possa pesquisar o mesmo. Sendo assim, você pode colocar no events OnDblClick do grid o seguinte código. procedure TfrmConsultaCurso.DBGrid1DblClick(Sender: TObject); begin // DM.CdsCadTurma.Close; DM.CdsCadTurma.Params[0].Value := DM.CdsConsCursoIDCURSO.Value; DM.CdsCadTurma.Open; close; end; Agora você manipula os dados que vão ser retornados infomando que um determinado campo do cadastro turma terá o seu valor (.text) igual a: DM.CdsConsCursoNOMECURSO E demais campos que achar necessário. Espero ter ajudado. Caso alquém tenha uma outra solução, e só posta. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Res:SOAP com SSL
Bom dia Apos você ter colocado o HTTPRIO você vai abri o navegador acessar o Webservice, clicar em WSDL de do serviço que você criou e copiar a última linha de endereço URL do texto XML apresentado. Você precisa fazer referencia as Units IDM e Iservicos (ALT-F11). Apos isso você podera importar (WSDL Importer), abrindo o webservice clicar em WSDL de IDM (seu madamodulo) e copiar o endereço do navegador: http://localhost/webescola/meuWebService.exe/wsdl/IDM veja se isso lhe ajuda. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Res:SOAP com SSL
Usando o HTTPRIO você tera que usar o WSDLImporter para importar as interfaces que se encontra no servidor web e implementam as funcionalidades do webservice a serem consumidas pelo projeto cliente. Você pode usar uma solução baseada em conectividade por intermédio dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um Webservice fazendo o acesso direto ao banco com a conexão SOAP. Basta colocar um datamodulo e um componenente SoapConn e pega o endereço que esta no webservice e copia a linha URL do texto XML e conectar. O resto e igual, coloca os clientDataset e fazer a conexão se você tiver usando multicamadas o RemoteServer será o SoapConn e o ProviderName será o ClientDataset do seu servidor de conexão, neste caso executar o Fetch Params e AddAllFields Veja se isso pode lhe ajuda!! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Organizar arquivos
Boa Tarde Dentro da mesma pasta do seu projeto você pode ter várias pastas para separar os fontes de forma que fique mais organizado, mais quando precisa tira os arquivos de um determinado local tera que altera o caminho. Faz um teste alterando os caminhos que estão em: Project / Options/ Directories/Conditionals Espero ter ajudado.. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Documentos
Boa Tarde No meu ponto de vista acredito que ficaria mais fácil você tratar estas informações persistindo dados no formato xml caso você esteja utilizando o ClientDataSet o mesmo tem a capacidade de salvar e recuperar dados em um arquivo de dados no formato DataPackageXML. Para fazer isso, você adiciona dois novos componentes, OpenDialog e SaveDialog da palheta Dialog, acrescente tambem na cláusula Uses, a biblioteca DBClient. Ai então basta você acrescentar um botão para executar a geração do arquivo no formato xml e outro para obtenção dos dados. .. salvar XML procedure TForm1.btSalvarXMLClick(Sender: TObject); begin if SaveDialog1.Execute then begin DM.CdsConsTeste.SaveToFile(SaveDialog1.FileName,dfXML); end; end; ..Ler dados XML procedure TForm1.btSalvarXMLClick(Sender: TObject); begin if SaveDialog1.Execute then begin DM.CdsConsTeste.LoadFromFile(SaveDialog1.FileName,dfXML); end; end; Espero ter ajudado!! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tratamento de exceção no d elphi
Boa tarde amigos O processo esta rodando corretamente, mais quando disconecto scktsrvr.exe ele gera o erro pois não encontra o serviço. O problema e tratar este erro. Att.. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form é fechado, mas memóri a continua a mesma ?????
Bom dia Flavio Geralmente faco isso para chamar um formulário e ao fecha-lo o mesmo saira da memória. procedure TFMenu.Clientes1Click(Sender: TObject); begin try FConsClientes := TFConsClientes.Create( Application ); FConsClientes.ShowModal; finally FreeAndNil( FConsClientes ); end; end; t+ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Projeto - Analise Específico
Bom dia Clovis Preciso que você verifique este arquivo e veja quando custa para você fazer igual a este, o mesmo serve para avisar ao usuário que tem algum atendimento em espera, o sistema on-line já esta na web, precisava apenas disso de forma personalizada, pois isso ficaria na maquina local . Veja o quanto antes. Atenciosamente - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
