[delphi-br] Fw: Problema...!!!

2008-05-12 Por tôpico Filippe Maymone - INFO 
Galera mais um problema cabeludo .. 

Estava fechando o meu projeto, não sei o que aconteceu mais apaguei algum END 
errado .. e sem querer eu acabei salvando o projeto.
Ja tentei de todos os jeitos e nada ... eu apaguei alguam coisa sem querer ... 
Esta apresentando a seguinte mensagem.
Logo apos segue o codigo..


Exception class EReadError with message 'Invalid property value'. Process 
Venus.exe

program Venus;

uses
  Forms,
  U_Venus in 'U_Venus.pas' {frmCodBarras},
  U_DM_Venus in 'U_DM_Venus.pas' {DmCodBarras: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Venus - Sistema de Impressão de Código de Barras';
  Application.CreateForm(TDmCodBarras, DmCodBarras);
  Application.CreateForm(TfrmCodBarras, frmCodBarras);
  Application.Run;
end.


unit U_Venus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, ComCtrls, 
Registry,
  FileCtrl, Menus, Mask, dblookup, jpeg;


type
  TfrmCodBarras = class(TForm)
PageControl1: TPageControl;
tbsImpressao: TTabSheet;
Panel1: TPanel;
Label5: TLabel;
Label6: TLabel;
edtCodProd: TEdit;
Panel2: TPanel;
BitBtn2: TBitBtn;
edtQuantidade: TEdit;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Label7: TLabel;
DBText5: TDBText;
tbsConfigura: TTabSheet;
Panel4: TPanel;
Panel5: TPanel;
BitBtn1: TBitBtn;
Panel6: TPanel;
RadioGroup1: TRadioGroup;
rbPortaLPT1: TRadioButton;
rbPortaLPT2: TRadioButton;
rbPortaCom1: TRadioButton;
rbPortaCom2: TRadioButton;
tbsEAN: TTabSheet;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Label8: TLabel;
Label9: TLabel;
edtEAN1: TEdit;
edtEAN2: TEdit;
tbsArquivos: TTabSheet;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
EdtLote: TEdit;
BitBtn3: TBitBtn;
FileListBox1: TFileListBox;
FilterComboBox1: TFilterComboBox;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Label11: TLabel;
TabSheet1: TTabSheet;
edtArq: TEdit;
BitBtn4: TBitBtn;
Label12: TLabel;
Image1: TImage;
DirectoryListBox2: TDirectoryListBox;
Label13: TLabel;
DriveComboBox2: TDriveComboBox;
edtQtde: TEdit;
  private
function VerificaData: Boolean;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure edtEAN1Exit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure edtCodProdChange(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
  public
function tbStrZero(const I: integer; const Casas: byte): string;
end;

var
  frmCodBarras: TfrmCodBarras;
  Porta, Diretorio : String;
  ArqReg: TRegIniFile;
  texto : String;

implementation
uses U_DM_Venus, DBClient;
{$R *.dfm}

procedure TfrmCodBarras.BitBtn1Click(Sender: TObject);
begin.
.
.
.
..

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido

2006-05-26 Por tôpico FILIPE GMAIL 



Olha só Elazar:

Já resolvi o problema do Access Violation.

Era ali mesmo, é que na verdade eu estava copiando um arquivo .cds criado por um client data set que gera um arquivo para poder rodar stand alone, porém quando eu queria mover este arquivo eu não estava fechando o client data set e as conversões de pchar talvez estivessem modificando o ponteiro do CDS para o arquivo .cds e quando finalizava a operação o CDS tentava encontrar o local, mas não achava mais... daí o access violation que eu resolvi fechando o CDS antes de mover o arquivo. Ufa...

Galera, valeu pelo apoio, sou novo na lista, mas deu pra ver que todos são muitos empenhados, espero poder ajudar também nas dúvidas e participar nas discussões.

Saudações, Filipe Ferrarini Gevaerd.
 - Original Message - 
 From: elazar 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Thursday, May 25, 2006 6:01 PM
 Subject: RES: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido


 Ok. pessoal, tambem tentei compilar,,,e compila normal.

 mas porque da o access violation quando o cara executa???
 o que tem de errado...


 procedure TForm1.Button1Click(Sender: TObject);
 var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
 begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage('Ocorreu um erro ao copiar o arquivo');
 End; 
 END;
 end;


 Atenciosamente;
 Elazar

 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 Em nome de FILIPE GMAIL
 Enviada em: quinta-feira, 25 de maio de 2006 16:39
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido


 Pessoal, já resolvi o problema...

 Se interessar a alguém utilizei o seguinte código:

 MoveFile(pchar (vms_Caminho) ,pchar(vms_Destino));

 e funcionou tb para CopyFile.


 Abraços a todos, flw.

 Filipe Ferrarini Gevaerd.

 - Original Message - 
 From: FILIPE GMAIL 
 To: [EMAIL PROTECTED] 
 Sent: Thursday, May 25, 2006 4:26 PM
 Subject: Fw: Problema com cópia de Arquivo.


 Ah, esqueci de falar ele até copia o arquivo, mas dá um erro muito
 estranho de access violation, alguém sabe me dizer o porquê?

 Valeu, Filipe

 Cópia da Mensagem original:



 Bom dia a todos,

 Pessoal estou com problemas ao copiar um arquivo de uma pasta para
 outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um
 Access Violation quando tento executar o código abaixo, o problema é
 que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso
 com String ou AnsiString, por isso preciso passar para pChar, se alguém
 puder me ajudar. Estou mandando o código simplificado abaixo:

 procedure TForm1.Button1Click(Sender: TObject);
 var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
 begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage(Ocorreu um erro ao copiar o arquivo);
 End; 
 END;
 end;

 Valeu, Filipe Ferrarini Gevaerd.

 [As partes desta mensagem que não continham texto foram removidas]


[As partes desta mensagem que não continham texto foram removidas]









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido

2006-05-25 Por tôpico FILIPE GMAIL 



Pessoal, já resolvi o problema...

Se interessar a alguém utilizei o seguinte código:

MoveFile(pchar (vms_Caminho) ,pchar(vms_Destino));

e funcionou tb para CopyFile.


Abraços a todos, flw.

Filipe Ferrarini Gevaerd.

- Original Message - 
From: FILIPE GMAIL 
To: [EMAIL PROTECTED] 
Sent: Thursday, May 25, 2006 4:26 PM
Subject: Fw: Problema com cópia de Arquivo.


Ah, esqueci de falar ele até copia o arquivo, mas dá um erro muito estranho de access violation, alguém sabe me dizer o porquê?

Valeu, Filipe

Cópia da Mensagem original:



Bom dia a todos,

 Pessoal estou com problemas ao copiar um arquivo de uma pasta para outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um Access Violation quando tento executar o código abaixo, o problema é que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso com String ou AnsiString, por isso preciso passar para pChar, se alguém puder me ajudar. Estou mandando o código simplificado abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage(Ocorreu um erro ao copiar o arquivo);
 End; 
 END;
end;

Valeu, Filipe Ferrarini Gevaerd.

[As partes desta mensagem que não continham texto foram removidas]









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Fw: Problema com cópia de Arquivo.

2006-05-25 Por tôpico FILIPE GMAIL 



Ah, esqueci de falar ele até copia o arquivo, mas dá um erro muito estranho de access violation, alguém sabe me dizer o porquê?

Valeu, Filipe

Cópia da Mensagem original:



Bom dia a todos,

 Pessoal estou com problemas ao copiar um arquivo de uma pasta para outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um Access Violation quando tento executar o código abaixo, o problema é que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso com String ou AnsiString, por isso preciso passar para pChar, se alguém puder me ajudar. Estou mandando o código simplificado abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage(Ocorreu um erro ao copiar o arquivo);
 End; 
 END;
end;

Valeu, Filipe Ferrarini Gevaerd.

[As partes desta mensagem que não continham texto foram removidas]










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

RES: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido

2006-05-25 Por tôpico elazar 



Ok. pessoal, tambem tentei compilar,,,e compila normal.

mas porque da o access violation quando o cara executa???
o que tem de errado...


procedure TForm1.Button1Click(Sender: TObject);
var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage('Ocorreu um erro ao copiar o arquivo');
 End; 
 END;
end;


Atenciosamente;
Elazar
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de FILIPE GMAIL
Enviada em: quinta-feira, 25 de maio de 2006 16:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Fw: Problema com cópia de Arquivo. - Resolvido


Pessoal, já resolvi o problema...

Se interessar a alguém utilizei o seguinte código:

MoveFile(pchar (vms_Caminho) ,pchar(vms_Destino));

e funcionou tb para CopyFile.


Abraços a todos, flw.

Filipe Ferrarini Gevaerd.

- Original Message - 
From: FILIPE GMAIL 
To: [EMAIL PROTECTED] 
Sent: Thursday, May 25, 2006 4:26 PM
Subject: Fw: Problema com cópia de Arquivo.


Ah, esqueci de falar ele até copia o arquivo, mas dá um erro muito
estranho de access violation, alguém sabe me dizer o porquê?

Valeu, Filipe

Cópia da Mensagem original:



Bom dia a todos,

 Pessoal estou com problemas ao copiar um arquivo de uma pasta para
outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um
Access Violation quando tento executar o código abaixo, o problema é
que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso
com String ou AnsiString, por isso preciso passar para pChar, se alguém
puder me ajudar. Estou mandando o código simplificado abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
 vms_Caminho, vms_Destino : AnsiString;
 vmp_Arquivo, vmp_Destino : PChar;
begin
 TRY
 vms_Caminho := 'C:\teste.txt';
 vms_Destino := 'C:\teste\teste.txt';

 STRPCOPY(vmp_Arquivo, vms_Caminho);
 STRPCOPY(vmp_Destino, vms_Destino);
 CopyFile(vmp_Arquivo , vmp_Destino, False);
 
 EXCEPT
 ShowMessage(Ocorreu um erro ao copiar o arquivo);
 End; 
 END;
end;

Valeu, Filipe Ferrarini Gevaerd.

[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
 




Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!. 


  
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

[delphi-br] Fw: Problema com QuikReport

2005-03-22 Por tôpico plucaslazaro 


 Bom dia a todos

 estou com o seguinte problema:

 Sistema desenvolvido em D5 utilizando Piradox, impressora Laser HP1100

 O sistema imprime guias sindical e esta acontecendo o seguinte:

 Qdo imprimo somente uma guia por vez, imprime tudo certo.
 Qdo mando imprimir várias guias (empresas diferentes) a primeira imprime
 correto, depois comeca a imprimir faltando logotipo, outra ora codigo de
 barras.
 A impressao que tenho é como se ao armazenar os dados no buffer da
 impressora ela se perde.

 Alguem teria alguma sugestao?

 Obrigado

 Paulo Lucas






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html