Guest --Antonio -- Postado Outubro 16, 2008 Denunciar Share Postado Outubro 16, 2008 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? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Silva_henry Postado Outubro 16, 2008 Denunciar Share Postado Outubro 16, 2008 (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 ?EDITADOAgora 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 Outubro 16, 2008 por Silva_henry Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Outubro 16, 2008 Denunciar Share Postado Outubro 16, 2008 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.zipabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Antonio Maucyr Pasqualli F Postado Outubro 17, 2008 Denunciar Share Postado Outubro 17, 2008 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.zipabraçoMuito obrigado peloa resposta,Poderia pedir mais um favor, Saberia me dizer onde fazer o download deste componente para a versão 7 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Outubro 17, 2008 Denunciar Share Postado Outubro 17, 2008 De acordo com o fornecedor ele serve tambem para o delphi 7http://gd.tuwien.ac.at/softeng/delphi/ftp/d20free/kdbexp.zipabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest --Antonio --
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
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.