Ir para conteúdo
Fórum Script Brasil
  • 0

Instalação de componente

Guest --Antonio --

Perguntado por Guest --Antonio --,

 Share

Pergunta

Guest --Antonio --

Guest --Antonio --

Postado
Postado

Prezados,

Ao tentar compilar um aplicação (vou começara dar suporte a ela) ele não localiza o seguinte arquivo : kdb2text.dcu. alguém poderia me ajuda? qual o componente que esta errado?

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Silva_henry

Silva_henry

Postado
Postado (editado)

Não encontrei muita coisa em relação a esta DCU,mas provavelmente voce esta utilizando um componente do qual as Units não foram informadas no Library Path do delphi,ou o mesmo não esta instalado.

Quais são os componentes de terceiros que voce utiliza ? Realizou alguma modificação recentemente ?

EDITADO

Agora entendi,este sistema não foi feito por voce,é isto ?

Suspeito que esta DCU pertenca a alguma componente do pacote JEDI,vamos ver alguém tenha maiores informações.

Abraços

Editado por Silva_henry
Link para o comentário
Compartilhar em outros sites
  • 0
Jhonas

Jhonas

Postado
Postado
Ao tentar compilar um aplicação (vou começara dar suporte a ela) ele não localiza o seguinte arquivo : kdb2text.dcu. alguém poderia me ajuda? qual o componente que esta errado?

Este arquivo faz parte de um Pacote de Exportação de banco de dados contém vários componentes por exportar dados de banco de dados a outros formatos. TKDatasetToText - dados de exportação de um dataset ativo em arquivo de texto; TKDatabaseToText - exportação e importação banco de dados inteiro para os arquivos de texto. Também são suportados campos memorando e campos BLOB; TKDatasetToHTML - exceto um dataset ativo como arquivo de HTML; TKDatasetToDBF - exceto um dataset ativo em tabela de DBase; TKDatasetToPrint - imprimir dataset;

Veja este codigo:

//<FLAG License>
// Summary:
//   Export formular
//
// Description:
//   Export formular
//
// Internal:
//
// Todo:
//
// Bugs:
//
// History:
// <pre>
//   <b>Version 01.00.00 (Released 20.04.2000)</b>
//     20.04.2000 PBE  Initial release
//   <b>Version 01.02.00 (Released )</b>
//     02.09.2000 PBE  Documentation for Doc-o-matic
// </pre>
//
//## License:
//##   The contents of this file are subject to the Mozilla Public License
//##   Version 1.1 (the "License"); you may not use this file except in
//##   compliance with the License. You may obtain a copy of the License at
//##   http://www.mozilla.org/MPL/
//##
//##   Software distributed under the License is distributed on an "AS IS"
//##   basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
//##   License for the specific language governing rights and limitations
//##   under the License.
//##
//##   The Original Code is JEDI Database Desktop Export Plugin
//##
//##   Initial Developer of the Original Code is Pascal Berger.
//##   Portions created by Beat Bucheli are Copyright  2000 by Pascal Berger
//##   All Rights Reserved.
//##
//##   Contributors: -
//##
//##   You may retrieve the latest version of this file at the JEDI Database
//##   Desktop home page, located at http://jedidbd.sourceforge.net
//##
unit DlgExport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, kds2prn, kds2dbf, kds2html, kdb2text, RXSpin, DBTables,
  Placemnt;

type
  TFrmExport = class(TForm)
    RGExportType: TRadioGroup;
    GBOptionsPrinter: TGroupBox;
    BtnExport: TButton;
    BtnClose: TButton;
    TextExport: TKDatasetToText;
    HTMLExport: TKDataSetToHTML;
    DBFExport: TKDataSetToDBF;
    PrinterExport: TKDatasetToPrinter;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EditTitle: TEdit;
    MemoHeader: TMemo;
    EditLeftMargin: TRxSpinEdit;
    MemoFooter: TMemo;
    BtnPreview: TButton;
    GBOptionsHTML: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    MemoHtmlHeader: TMemo;
    GBOptionsdBase: TGroupBox;
    GBOptionsText: TGroupBox;
    Label10: TLabel;
    SaveDialog: TSaveDialog;
    MemoHtmlFooter: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    EditTopMargin: TRxSpinEdit;
    FormStorage: TFormStorage;
    CBDelimiter: TComboBox;
    BtnAbout: TButton;
    procedure RGExportTypeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BtnPreviewClick(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
    procedure BtnAboutClick(Sender: TObject);
  private
    { Private-Deklarationen }
    Table:TTable;

    procedure SetVisibleOptionBox(OptionBox:TGroupBox);
  public
    { Public-Deklarationen }
    IsAlias: boolean;
    DBName: string;
    TableName: string;
  end;

var
  FrmExport: TFrmExport;

implementation

{$R *.DFM}

uses uFileUtils, uGlobals;

procedure TFrmExport.SetVisibleOptionBox(OptionBox:TGroupBox);
begin
  GBOptionsText.Visible:=false;
  GBOptionsdBase.Visible:=false;
  GBOptionsHTML.Visible:=false;
  GBOptionsPrinter.Visible:=false;

  OptionBox.Visible:=true;
end;

procedure TFrmExport.RGExportTypeClick(Sender: TObject);
begin
  case RGExportType.ItemIndex of
    0: begin
         SetVisibleOptionBox(GBOptionsText);
       end;
    1: begin
         SetVisibleOptionBox(GBOptionsdBase);
       end;
    2: begin
         SetVisibleOptionBox(GBOptionsHTML);
       end;
    3: begin
         SetVisibleOptionBox(GBOptionsPrinter);
       end;
  end;
end;

procedure TFrmExport.FormShow(Sender: TObject);
var i:integer;
begin
  Table:=TTable.Create(self);
  Table.DatabaseName:=DBName;
  Table.TableName:=TableName;
  Table.Open;
  TextExport.Dataset:=Table;
  dbfExport.DataSet:=Table;
  HTMLExport.DataSet:=Table;
  PrinterExport.Dataset:=Table;

  MemoHTMLHeader.Lines.Add('<h1>');
  MemoHTMLHeader.Lines.Add('  <center>');

  //Default values
  if IsAlias then begin
    EditTitle.Text:=':'+DBName+':'+TableName;
    MemoHTMLHeader.Lines.Add('    :'+DBName+':'+TableName);
  end
  else begin
    EditTitle.Text:=TableName;
    MemoHTMLHeader.Lines.Add('    '+TableName);
  end;

  MemoHTMLHeader.Lines.Add('  </center>');
  MemoHTMLHeader.Lines.Add('</h1>');

  for i:=33 to 255 do begin
    CBDelimiter.items.Add(Chr(i)+' (#'+IntToStr(i)+')');
    CBDelimiter.ItemIndex:=9;
  end;
end;

procedure TFrmExport.FormDestroy(Sender: TObject);
begin
  Table.Close;
  Table.Free;
end;

procedure TFrmExport.BtnPreviewClick(Sender: TObject);
begin
  with PrinterExport do begin
    Title:=EditTitle.Text;
    //Footer and Header are exchanged in component!!
    Header:=MemoFooter.Lines;
    Footer:=MemoHeader.Lines;
    LeftMargin:=StrToInt(EditLeftMargin.Text);
    TopMargin:=StrToInt(EditTopMargin.Text);
    Preview;
  end;
end;

procedure TFrmExport.BtnExportClick(Sender: TObject);
begin
  case RGExportType.ItemIndex of
    //Text export
    0: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.txt';
         SaveDialog.DefaultExt:='txt';
         SaveDialog.Filter:='All files (*.*)|*.*|Text files (*.txt)|*.txt';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then begin
           TextExport.Delimiter:=Chr(CBDelimiter.ItemIndex);
           TextExport.Transfer(SaveDialog.FileName);
         end;
       end;
    //dBase export
    1: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.dbf';
         SaveDialog.DefaultExt:='dbf';
         SaveDialog.Filter:='All files (*.*)|*.*|dBase files (*.dbf)|*.dbf';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then dbfExport.Transfer(SaveDialog.FileName);
       end;
    //HTML export
    2: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.html';
         SaveDialog.DefaultExt:='html';
         SaveDialog.Filter:='All files (*.*)|*.*|HTML files (*.html)|*.html';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then begin
           HTMLExport.Header:=MemoHTMLHeader.Lines;
           HTMLExport.Footer:=MemoHTMLFooter.Lines;
           HTMLExport.Transfer(SaveDialog.FileName);
         end;
       end;
    //Printer export
    3: begin
         PrinterExport.Title:=EditTitle.Text;
         //Footer and Header are exchanged in component!!
         PrinterExport.Header:=MemoFooter.Lines;
         PrinterExport.Footer:=MemoHeader.Lines;
         PrinterExport.LeftMargin:=StrToInt(EditLeftMargin.Text);
         PrinterExport.TopMargin:=StrToInt(EditTopMargin.Text);
         PrinterExport.Print;
       end;
  end;
end;

procedure TFrmExport.BtnAboutClick(Sender: TObject);
begin
  ShowAboutBox;
end;

end.

Endereço para download do pacote, para as versões do delphi 2 a 5:

http://gd.tuwien.ac.at/softeng/delphi/ftp/d20free/kdbexp.zip

abraço

Link para o comentário
Compartilhar em outros sites
  • 0
Antonio Maucyr Pasqualli F

Antonio Maucyr Pasqualli F

Postado
Postado
Ao tentar compilar um aplicação (vou começara dar suporte a ela) ele não localiza o seguinte arquivo : kdb2text.dcu. alguém poderia me ajuda? qual o componente que esta errado?

Este arquivo faz parte de um Pacote de Exportação de banco de dados contém vários componentes por exportar dados de banco de dados a outros formatos. TKDatasetToText - dados de exportação de um dataset ativo em arquivo de texto; TKDatabaseToText - exportação e importação banco de dados inteiro para os arquivos de texto. Também são suportados campos memorando e campos BLOB; TKDatasetToHTML - exceto um dataset ativo como arquivo de HTML; TKDatasetToDBF - exceto um dataset ativo em tabela de DBase; TKDatasetToPrint - imprimir dataset;

Veja este codigo:

//<FLAG License>
// Summary:
//   Export formular
//
// Description:
//   Export formular
//
// Internal:
//
// Todo:
//
// Bugs:
//
// History:
// <pre>
//   <b>Version 01.00.00 (Released 20.04.2000)</b>
//     20.04.2000 PBE  Initial release
//   <b>Version 01.02.00 (Released )</b>
//     02.09.2000 PBE  Documentation for Doc-o-matic
// </pre>
//
//## License:
//##   The contents of this file are subject to the Mozilla Public License
//##   Version 1.1 (the "License"); you may not use this file except in
//##   compliance with the License. You may obtain a copy of the License at
//##   http://www.mozilla.org/MPL/
//##
//##   Software distributed under the License is distributed on an "AS IS"
//##   basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
//##   License for the specific language governing rights and limitations
//##   under the License.
//##
//##   The Original Code is JEDI Database Desktop Export Plugin
//##
//##   Initial Developer of the Original Code is Pascal Berger.
//##   Portions created by Beat Bucheli are Copyright  2000 by Pascal Berger
//##   All Rights Reserved.
//##
//##   Contributors: -
//##
//##   You may retrieve the latest version of this file at the JEDI Database
//##   Desktop home page, located at http://jedidbd.sourceforge.net
//##
unit DlgExport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, kds2prn, kds2dbf, kds2html, kdb2text, RXSpin, DBTables,
  Placemnt;

type
  TFrmExport = class(TForm)
    RGExportType: TRadioGroup;
    GBOptionsPrinter: TGroupBox;
    BtnExport: TButton;
    BtnClose: TButton;
    TextExport: TKDatasetToText;
    HTMLExport: TKDataSetToHTML;
    DBFExport: TKDataSetToDBF;
    PrinterExport: TKDatasetToPrinter;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EditTitle: TEdit;
    MemoHeader: TMemo;
    EditLeftMargin: TRxSpinEdit;
    MemoFooter: TMemo;
    BtnPreview: TButton;
    GBOptionsHTML: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    MemoHtmlHeader: TMemo;
    GBOptionsdBase: TGroupBox;
    GBOptionsText: TGroupBox;
    Label10: TLabel;
    SaveDialog: TSaveDialog;
    MemoHtmlFooter: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    EditTopMargin: TRxSpinEdit;
    FormStorage: TFormStorage;
    CBDelimiter: TComboBox;
    BtnAbout: TButton;
    procedure RGExportTypeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BtnPreviewClick(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
    procedure BtnAboutClick(Sender: TObject);
  private
    { Private-Deklarationen }
    Table:TTable;

    procedure SetVisibleOptionBox(OptionBox:TGroupBox);
  public
    { Public-Deklarationen }
    IsAlias: boolean;
    DBName: string;
    TableName: string;
  end;

var
  FrmExport: TFrmExport;

implementation

{$R *.DFM}

uses uFileUtils, uGlobals;

procedure TFrmExport.SetVisibleOptionBox(OptionBox:TGroupBox);
begin
  GBOptionsText.Visible:=false;
  GBOptionsdBase.Visible:=false;
  GBOptionsHTML.Visible:=false;
  GBOptionsPrinter.Visible:=false;

  OptionBox.Visible:=true;
end;

procedure TFrmExport.RGExportTypeClick(Sender: TObject);
begin
  case RGExportType.ItemIndex of
    0: begin
         SetVisibleOptionBox(GBOptionsText);
       end;
    1: begin
         SetVisibleOptionBox(GBOptionsdBase);
       end;
    2: begin
         SetVisibleOptionBox(GBOptionsHTML);
       end;
    3: begin
         SetVisibleOptionBox(GBOptionsPrinter);
       end;
  end;
end;

procedure TFrmExport.FormShow(Sender: TObject);
var i:integer;
begin
  Table:=TTable.Create(self);
  Table.DatabaseName:=DBName;
  Table.TableName:=TableName;
  Table.Open;
  TextExport.Dataset:=Table;
  dbfExport.DataSet:=Table;
  HTMLExport.DataSet:=Table;
  PrinterExport.Dataset:=Table;

  MemoHTMLHeader.Lines.Add('<h1>');
  MemoHTMLHeader.Lines.Add('  <center>');

  //Default values
  if IsAlias then begin
    EditTitle.Text:=':'+DBName+':'+TableName;
    MemoHTMLHeader.Lines.Add('    :'+DBName+':'+TableName);
  end
  else begin
    EditTitle.Text:=TableName;
    MemoHTMLHeader.Lines.Add('    '+TableName);
  end;

  MemoHTMLHeader.Lines.Add('  </center>');
  MemoHTMLHeader.Lines.Add('</h1>');

  for i:=33 to 255 do begin
    CBDelimiter.items.Add(Chr(i)+' (#'+IntToStr(i)+')');
    CBDelimiter.ItemIndex:=9;
  end;
end;

procedure TFrmExport.FormDestroy(Sender: TObject);
begin
  Table.Close;
  Table.Free;
end;

procedure TFrmExport.BtnPreviewClick(Sender: TObject);
begin
  with PrinterExport do begin
    Title:=EditTitle.Text;
    //Footer and Header are exchanged in component!!
    Header:=MemoFooter.Lines;
    Footer:=MemoHeader.Lines;
    LeftMargin:=StrToInt(EditLeftMargin.Text);
    TopMargin:=StrToInt(EditTopMargin.Text);
    Preview;
  end;
end;

procedure TFrmExport.BtnExportClick(Sender: TObject);
begin
  case RGExportType.ItemIndex of
    //Text export
    0: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.txt';
         SaveDialog.DefaultExt:='txt';
         SaveDialog.Filter:='All files (*.*)|*.*|Text files (*.txt)|*.txt';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then begin
           TextExport.Delimiter:=Chr(CBDelimiter.ItemIndex);
           TextExport.Transfer(SaveDialog.FileName);
         end;
       end;
    //dBase export
    1: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.dbf';
         SaveDialog.DefaultExt:='dbf';
         SaveDialog.Filter:='All files (*.*)|*.*|dBase files (*.dbf)|*.dbf';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then dbfExport.Transfer(SaveDialog.FileName);
       end;
    //HTML export
    2: begin
         SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.html';
         SaveDialog.DefaultExt:='html';
         SaveDialog.Filter:='All files (*.*)|*.*|HTML files (*.html)|*.html';
         SaveDialog.FilterIndex:=2;
         if SaveDialog.Execute then begin
           HTMLExport.Header:=MemoHTMLHeader.Lines;
           HTMLExport.Footer:=MemoHTMLFooter.Lines;
           HTMLExport.Transfer(SaveDialog.FileName);
         end;
       end;
    //Printer export
    3: begin
         PrinterExport.Title:=EditTitle.Text;
         //Footer and Header are exchanged in component!!
         PrinterExport.Header:=MemoFooter.Lines;
         PrinterExport.Footer:=MemoHeader.Lines;
         PrinterExport.LeftMargin:=StrToInt(EditLeftMargin.Text);
         PrinterExport.TopMargin:=StrToInt(EditTopMargin.Text);
         PrinterExport.Print;
       end;
  end;
end;

procedure TFrmExport.BtnAboutClick(Sender: TObject);
begin
  ShowAboutBox;
end;

end.

Endereço para download do pacote, para as versões do delphi 2 a 5:

http://gd.tuwien.ac.at/softeng/delphi/ftp/d20free/kdbexp.zip

abraço

Muito obrigado peloa resposta,

Poderia pedir mais um favor,

Saberia me dizer onde fazer o download deste componente para a versão 7

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...