SIGNORI

Boa tarde, estou com um problema aqui no consumo de um Web Service. Importei com o WSDLImporter e ele me gerou a classe. A estrutura de envio deste WS é assim: <cabecalho> <tag1></tag1> <tag2></tag2> </cabecalho> <Dados> <DadosItem> <tag1></tag1> </DadosItem> <DadosItem> <tag1></tag1> </DadosItem> [...] </Dados> Bem, então o grupo Dados é um array. Assim o Delphi gerou a classe, só não sei como inicializar esse array para preenche-lo. Pois esse array é uma propriedade da classe "envio", e toda vez que tento atribuir um valor dá "acces violation". Se tento dar um SetLength, ocorre erro. A parte da classe deste array está assim: Recep = class(TRemotable) private FCabecalho: Recepcao_Cabecalho; FInformacoes: Recepcao_Informacoes; FDados: Dados; public destructor Destroy; override; property Dados: Dados read FDados write FDados; published property Cabecalho: Recepcao_Cabecalho read FCabecalho write FCabecalho; property Informacoes: Recepcao_Informacoes read FInformacoes write FInformacoes; end; Dados = array of Recepcao_DadosItem; Na minha Unit, tenho assim: env.Dados[0] := dadositem; //env é o objeto da classe Recep //dadositem é o objeto da classe Recepcao_DadosItem Nesse momento ocorre o erro de acces violation, como inicializo esse array? :blink: Obrigado

Resolvido o problema, estava matando minha variável que retornava os dados no final... De qualquer forma obrigado Daniel, vou guardar teu código!

Obrigado pela resposta, bem interessante seu método, será minha alternativa caso não consiga resolver meu problema... Estou usando Oracle 10g Express, se algué puder ajudar, agradeço.

Olá amigos, estou fazendo um trabalho orientado a objeto para a faculdade, sempre programei um Delphi usando DbExpress, só que neste projeto estou Usando ADO. Tenho o seguinte problema, não estou conseguindo preencher o DBGRid com dados vindos de uma consulta do BD, segue o código da consulta: function TuClassClientes.Consultar(Condicao: string): TDataSource; var Qry: TADOQuery; ds: TDataSource; begin try Qry := TADOQuery.Create(nil); ds := TDataSource.Create(nil); try if Condicao <> '' then Condicao := 'where('+Condicao+')'; with Qry do begin Connection := TuClassConexao.ObtemConexao; Close; SQL.Text := 'select CLIENTES.ID_CLIENTE, CLIENTES.NOME, CLIENTES.DATA_NASC '+ 'from CLIENTES'; Open; end; ds.DataSet := Qry; Result := ds; finally ds.Free; Qry.Free; end; except on E: Exception do raise Exception.Create('Ops! Ocorreu um erro na consulta: '+e.Message); end; end; Se executar a SQL direto no BD retorna os registros.. no forma chamo da seguinte maneira; procedure TForm1.Button5Click(Sender: TObject); var CLIENTE: TuClassClientes; begin CLIENTE := TuClassClientes.Create; try DBGrid1.DataSource := CLIENTE.Consultar(''); finally CLIENTE.Free; end; end; Oque está errado? Obrigado!

Olá Amigos. Estou tentando implantar um controle de versão de arquivos na minha empresa, já fiz testes com o SVN, porém não me agradou. Em outra oportunidade já trabalhei com CVS, porém com servidor instalado no Linux e clientes Windows. Já aqui, necessido um servidor CVS que rode no Windows Server 2003. Pesquisei e encontrei um servidor CVS para Windows, o CVSNT, porém não consigo configurá-lo. Alguém já trabalhou com o CVSNT e pode me dar uma ajuda de como configurar o servidor?? Fico muito grato!

Obrigado kara! Descobri meu erro! Valeu mesmo!

ESse é o erro que da: consulta SQL: /* Created 18/2/2007 Modified 18/2/2007 Project Model Company Author Version Database mySQL 5 */ DROP TABLE IF EXISTS funcoes; Mensagens do MySQL : #1046 - No database selected Gostei do Tetra mundial Sou só campeão...

Olá! Sou novo no fórum e iniciante em PHP. Configurei todos os arquivos do apache, php e MYsql. Tenho o XAMP instalado. Tenho um banco criado mas não consigo importa-lo pelo Myadmim. da um erro. Alguém tem alguma sugestão???