fernando_vip

muito boa esta sua dica mano, funciona bele, fica tudo redondinho mesmo...heheheheno sentido literal da coisa... falow!!!

Então como ficaria o código da unit inteira, estou no começo e ainda não tenho intimidade com o Pascal

Agora deu o seguinte erro: [Error] Unit1.pas(30): Identifier expected but 'PROCEDURE' found

Estou tentando abrir uma url pelo IE porém sempre dá o mesmo erro. Cód da unt: unit Unit1; interface uses Windows, Messages, ComObj, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // Executa uma URL especificada com o InterNet Explorer. // Declare ComObj na seção USES. // Exemplo ::: OpenInternetExplorer('http://www.site.com.br'); procedure OpenInternetExplorer( 'http://www.brazlândiaonline.com' : string ); const csOLEObjName = 'InternetExplorer.Application'; var IE : Variant;WinHanlde : HWnd; begin if( VarIsEmpty( IE ) )then begin IE := CreateOleObject( csOLEObjName ); IE.Visible := true; IE.Navigate( 'http://www.brazlândiaonline.com' ); end else begin WinHanlde := FindWIndow( 'IEFrame', nil ); if( 0 <> WinHanlde )then begin IE.Navigate( 'http://www.brazlândiaonline.com' ); SetForegroundWindow( WinHanlde ); end else begin Showmessage('Ocorreu um erro não informado!'); end; end; end; end. O rro: [Error] Unit1.pas(29): Identifier expected but string constant found Alguém pode ajudar????

Olá pessoal!!! Estou com um sistema de cursinho de informática que está funcionando belezinha, porém, qd tento buscar um relatório, tipo da mensalidade dos alunos, ele informa um erro no campo BLOB e simplesmente não linka o relatório ao BD, alguém pode ajudar????? falow

Olá, Qual é sua dúvida? Abs. Kiko Q d dou clique duplo non IBQuery, para adicionar os campos à form de consulta SQL ele dá um erro

olá boa noite!!! Estou criando um controle de estoque e estou com um pro: Não consigo adicionar os campos pelo IBQuery, eis o código da unt: unit UntCadastroClientes; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, IBDatabase, DBCtrls, StdCtrls, Mask, IBCustomDataSet, ExtCtrls, Grids, DBGrids, IBQuery, ComCtrls; type TfrmCadastroClientes = class(TForm) PgCntrlclientes: TPageControl; TbShtCadastro: TTabSheet; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; DbdtCodigo: TDBEdit; DbdtNome: TDBEdit; DbdtLogradouro: TDBEdit; DbdtCidade: TDBEdit; DbdtBairro: TDBEdit; DbdtUF: TDBEdit; DbdtCEP: TDBEdit; DbdtComplemento: TDBEdit; DbdtCPF: TDBEdit; DbdtCNPJ: TDBEdit; DbdtTelefoneFixo: TDBEdit; DbdtTelefoneCelular: TDBEdit; DbdtEmail: TDBEdit; DbdtDataNascimento: TDBEdit; DBmgFOTO: TDBImage; DBNvgtrclientes: TDBNavigator; BtnFoto: TButton; IBDatabase1: TIBDatabase; IBTrnsctnEstoque: TIBTransaction; IBDtStClientes: TIBDataSet; IBDtStClientesCODIGO: TIntegerField; IBDtStClientesNOME: TIBStringField; IBDtStClientesLOGRADOURO: TIBStringField; IBDtStClientesCIDADE: TIBStringField; IBDtStClientesBAIRRO: TIBStringField; IBDtStClientesUF: TIBStringField; IBDtStClientesCEP: TIBStringField; IBDtStClientesCOMPLEMENTO: TIBStringField; IBDtStClientesCPF: TIBStringField; IBDtStClientesCNPJ: TIBStringField; IBDtStClientesTELEFONEFIXO: TIBStringField; IBDtStClientesTELEFONECELULAR: TIBStringField; IBDtStClientesEMAIL: TIBStringField; IBDtStClientesDATANASC: TDateField; IBDtStClientesFOTO: TBlobField; dtsrclIBDTSclientes: TDataSource; OpnPctrDlg1: TOpenDialog; TabSheet1: TTabSheet; Label16: TLabel; Label17: TLabel; LblConsultaSQL: TLabel; EdtConsultaSQL: TEdit; BtnConsultaSQL: TButton; IBQryConsultaSQL: TIBQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; procedure BtnFotoClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmCadastroClientes: TfrmCadastroClientes; implementation {$R *.dfm} procedure TfrmCadastroClientes.BtnFotoClick(Sender: TObject); begin if OpnPctrDlg1.Execute then begin IBDtStClientes.Edit; IBDtStClientesFOTO.LoadFromFile(OpnPctrDlg1.FileName); end; end; end.

Olá amigo!!!! porque você não tenta isso: procedure CopyFileDate(const Source, Dest: String); var SourceHand, DestHand: word; begin SourceHand := FileOpen(Source, fmOutput); DestHand := FileOpen(Dest, fmInput); FileSetDate(DestHand, FileGetDate(SourceHand)); FileClose(SourceHand); FileClose(DestHand); end;

Olá!! Ainda estou com um problema com o sistema de cursinho. Ele simplesmente não compila, vou postar o código e depois o ettp. O código: unit fPrincipal; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls; type TFrmPrincipal = class(TForm) Mnu1: TMainMenu; Cadastro1: TMenuItem; Alunos1: TMenuItem; N1: TMenuItem; Sair1: TMenuItem; Consultas1: TMenuItem; Baixar1: TMenuItem; N3: TMenuItem; Relatrios1: TMenuItem; Alunos2: TMenuItem; N4: TMenuItem; Mensalidades1: TMenuItem; Atrasadas1: TMenuItem; Todas2: TMenuItem; Horrio1: TMenuItem; StbMen: TStatusBar; Panel1: TPanel; Panel2: TPanel; Label2: TLabel; Panel3: TPanel; Image1: TImage; FichadeCadastral1: TMenuItem; N2: TMenuItem; Sinttico1: TMenuItem; Timer1: TTimer; GerarParclas1: TMenuItem; Utilitrios1: TMenuItem; BackupRestaurao1: TMenuItem; Consultar1: TMenuItem; Label1: TLabel; procedure Horrio1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Alunos1Click(Sender: TObject); procedure FichadeCadastral1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure GerarParclas1Click(Sender: TObject); procedure BackupRestaurao1Click(Sender: TObject); procedure Sinttico1Click(Sender: TObject); procedure Consultar1Click(Sender: TObject); procedure Sair1Click(Sender: TObject); private procedure ShowHint (Sender: TObject); public end; var FrmPrincipal: TFrmPrincipal; implementation Uses fHorario, fCurso, fAluno,fFichaAluno, fMensal, fRel, fConsulta, UnBackup; {$R *.DFM} procedure TFrmPrincipal.ShowHint (Sender: TObject); begin StbMen.Panels.Items[1].Text := Application.hint; end; procedure TFrmPrincipal.Horrio1Click(Sender: TObject); begin frmHorario.ShowModal; end; procedure TFrmPrincipal.N1Click(Sender: TObject); begin frmCursos.ShowModal; end; procedure TFrmPrincipal.Alunos1Click(Sender: TObject); begin frmAluno.ShowModal; end; procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject); begin frmFicha.tblRelAluno.open; frmFicha.tblRelAluno.Filtered := False; FrmFicha.qrpFicha.Preview; frmFicha.tblRelAluno.close; end; procedure TFrmPrincipal.Timer1Timer(Sender: TObject); begin stbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time); end; procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject); begin FrmMensal.ShowModal end; procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject); begin FrmBackup.ShowModal; end; procedure TFrmPrincipal.Sinttico1Click(Sender: TObject); begin FrmRel.tblRel.Open; FrmRel.tblRel.Filtered := False; FrmRel.QuickRep1.Preview; end; procedure TFrmPrincipal.Consultar1Click(Sender: TObject); begin FrmConsulta.ShowModal; end; procedure TFrmPrincipal.Sair1Click(Sender: TObject); begin Close; end; end. O erro: [Fatal Error] fPrincipal.pas(61): File not found: 'AbBrowse.dcu'

eu consegui identificas o frmBackup.pas e .dcu na pasta, tem a ver?

Calma, pera, ops... Vamos por partes, como faço isso, mas seja detalhado por favor, se tudo terminar bem coloco seu nome no projeto..hehehe e mando uma cópia p vc.. Voltando ao assunto, eu não sei como fazer isto

Fiz o que você falou e funcionou, parou com alguns erros, mas tem um ainda : [Fatal Error] File not found: 'c:\arquivos de programas\borland\delphi7\Rave5\Lib\backup.pas' seu que ele diz que o arq não foi encontrado, não é mesmo? porém ele está falando da biblioteca ou será porque eu preciso importar para ele o QReport? O rave não resolve?

ainda estou voando, pode ser mais específico, sou novato

Eu uso o Delphi 07, mas se não dá no 7 como devo proceder?

Voltei, para desespero de muitos hehehe Ainda estou com problemas com o programinha de sistema de controle de escola de informática. ele sempre dá o mesmo erro em todas as unites. Vou mandar o código da unit principál e depois os erros beleza? O código: unit fPrincipal; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls; type TFrmPrincipal = class(TForm) Mnu1: TMainMenu; Cadastro1: TMenuItem; Alunos1: TMenuItem; N1: TMenuItem; Sair1: TMenuItem; Consultas1: TMenuItem; Baixar1: TMenuItem; N3: TMenuItem; Relatrios1: TMenuItem; Alunos2: TMenuItem; N4: TMenuItem; Mensalidades1: TMenuItem; Atrasadas1: TMenuItem; Todas2: TMenuItem; Horrio1: TMenuItem; StbMen: TStatusBar; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Panel3: TPanel; Image1: TImage; FichadeCadastral1: TMenuItem; N2: TMenuItem; Sinttico1: TMenuItem; Timer1: TTimer; GerarParclas1: TMenuItem; Utilitrios1: TMenuItem; BackupRestaurao1: TMenuItem; Consultar1: TMenuItem; procedure FormCreate(Sender: TObject); procedure Horrio1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Alunos1Click(Sender: TObject); procedure FichadeCadastral1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure GerarParclas1Click(Sender: TObject); procedure BackupRestaurao1Click(Sender: TObject); procedure Sinttico1Click(Sender: TObject); procedure Consultar1Click(Sender: TObject); procedure Sair1Click(Sender: TObject); private procedure ShowHint (Sender: TObject); function CriaAlias(Nome, Caminho, Driver: string): Boolean; public end; var FrmPrincipal: TFrmPrincipal; implementation Uses fHorario, fCurso, fAluno,fFichaAluno, fMensal, FrmBackup,fRel, fConsulta; {$R *.DFM} procedure TFrmPrincipal.ShowHint (Sender: TObject); begin StbMen.Panels.Items[1].Text := Application.hint; end; procedure TFrmPrincipal.FormCreate(Sender: TObject); begin Application.OnHint := ShowHint; CriaAlias('a_curso', ExtractFilePath(Application.ExeName) + 'Db2\', 'PARADOX'); end; procedure TFrmPrincipal.Horrio1Click(Sender: TObject); begin frmHorario.ShowModal; end; procedure TFrmPrincipal.N1Click(Sender: TObject); begin frmCursos.ShowModal; end; procedure TFrmPrincipal.Alunos1Click(Sender: TObject); begin frmAluno.ShowModal; end; procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject); begin frmFicha.tblRelAluno.open; frmFicha.tblRelAluno.Filtered := False; FrmFicha.qrpFicha.Preview; frmFicha.tblRelAluno.close; end; procedure TFrmPrincipal.Timer1Timer(Sender: TObject); begin stbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time); end; procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject); begin FrmMensal.ShowModal end; procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject); begin FrmBkp.ShowModal; end; procedure TFrmPrincipal.Sinttico1Click(Sender: TObject); begin FrmRel.tblRel.Open; FrmRel.tblRel.Filtered := False; FrmRel.QuickRep1.Preview; end; procedure TFrmPrincipal.Consultar1Click(Sender: TObject); begin FrmConsulta.ShowModal; end; function TFrmPrincipal.CriaAlias(Nome, Caminho, Driver: string): Boolean; begin Result := True; try If not Session.IsAlias(Nome) then begin Session.AddStandardAlias(Nome, Caminho, Driver); Session.SaveConfigFile; end else result := false; except; Result := False; end; end; procedure TFrmPrincipal.Sair1Click(Sender: TObject); begin Close; end; end. Ond mostra o erro: procedure TfrmInc_Curso.SpeedButton3Click(Sender: TObject); begin If Application.MessageBox('Confirma a Inclusão do Curso?','Cadastro de Alunos',MB_IconQUESTION + MB_YESNO) = IDYES then Begin If Not FrmAluno.tblA_curso.Locate('Descricao;Cod_Aluno',VarArrayOf([DBCBOCurso.Tex t, FrmAluno.DBText1.Field.text]),[loCaseInsensitive])then begin Os erros: [Error] fInc_Curso.pas(62): Undeclared identifier: 'VarArrayOf' [Error] fInc_Curso.pas(62): Ordinal type required [Error] fInc_Curso.pas(62): Incompatible types: 'Integer' and 'String' [Fatal Error] fAluno.pas(117): Could not compile used unit 'fInc_Curso.pas' Alguém pode ajudxar??

eu coloquei a unt Backup.pas, porém continua dando o mesmo erro. O q pode ser então?

você testou o código??? Esta unt pode ser formada com que componentes?

Brazlandiaonline - O Portal Web de Brazlandia Estou mudando um sistema para locodora e está dando alguns erros, vou postar o código e depois o erro Cód: unit UnBackup; interface uses { Directivas de compilação } {$ifdef win32} BDE, { BDE 32 BITS } {$else} DBIProcs, DBITypes, DbiErrs, { IDAPI 16 BITS} {$endif} WinProcs, WinTypes, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, {backup1,} Buttons, DB, DBTables, backup, Gauges, backup1; type TFBackup = class(TForm) Panelbackup: TPanel; StaticText1: TStaticText; FileListBox: TListBox; BackupFile1: TBackupFile; SaveDialog: TSaveDialog; Gauge1: TGauge; BitBtn1: TSpeedButton; procedure BackupFile1Progress(Sender: TObject; Filename: String; Percent: TPercentage; var Continue: Boolean); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public function GetAliasPath( sAlias : String) : String; //retorna o caminho do alias end; var fBackup: TfBackup; implementation {$R *.DFM} function TfBackup.GetAliasPath( sAlias : String) : String; var oDataBase : TDatabase; pszDir : Pchar; sDir : String; begin try oDataBase := TDatabase.Create(nil); With oDatabase do begin try pszDir := StrAlloc( 255 ); AliasName := sAlias; DataBaseName := 'dblocadora'; Connected := true; DbiGetDirectory( Handle, true, pszDir ); sDir := StrPas( pszDir ); {$Ifdef Win32} Result := sDir; {$else} Result := sDir + '\'; {$endif} Connected := false; except on E:EOutOfMemory do MessageDlg('Problemas de memória ' + E.Message, MtError,[MBOK],0); end; end; finally StrDispose( pszDir ); oDataBase.Free; end; end; procedure TFBackup.BackupFile1Progress(Sender: TObject; Filename: String; Percent: TPercentage; var Continue: Boolean); begin with Gauge1 do begin visible := Percent < 100; if visible then Progress := Percent; end; end; procedure TFBackup.SpeedButton1Click(Sender: TObject); var vFileName, fAlias : String; Result : Integer; SearchRec : TSearchRec; vPath : String; begin MessageBeep(MB_ICONEXCLAMATION); BitBtn1.Enabled := False; vPath := GetAliasPath('dblocadora'); FileListBox.Items.Add(vPath+'*.*'); if Application.MessageBox('Deseja continuar com o backup?','Atenção',MB_ICONINFORMATION + mb_YesNo) = IdNo then Abort; if Filelistbox.items.count = 0 then Showmessage('Arquivos não adcionados') else with SaveDialog do if execute then begin if (uppercase(copy(filename, 1, 1)) = 'A') or (uppercase(copy(filename, 1, 1)) = 'D')or (uppercase(copy(filename, 1, 1)) = 'E') then begin Showmessage('Drive indicado - por favor verifique se o disco está inserido e clique em OK'); BackupFile1.maxSize := 1400000; //backup to floppy end else BackupFile1.maxSize := 0; backupfile1.backuptitle := 'dblocadora'; backupfile1.backupmode := bmAll; backupfile1.compressionLevel := clDefault; backupfile1.SaveFileID := False; if backupfile1.backup(filelistbox.items, filename) then Showmessage('Backup Completo. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %') else Showmessage('Backup falhou ou foi abortado'); //failed or aborted'); end; BitBtn1.Enabled := True; end; end. O Ero: [Fatal Error] UnBackup.pas(13): File not found: 'backup.dcu' Alguém pode ajudar?

Brazlandiaonline - O Portal da Nossa Cidade!!! Olá pessoal, voltei, pra desespero de muitos hehehe. Estou fazendo um controle de stoque e na hora de compilar, e é porque está no início do projeto, ele dá o seguinte erro:: Project PrjctEstoque.exe raised exception class EDatabaseError with message 'DBdtDataNascimento:Fiel 'DATA NASCIMENTO' not found', Process stopped. Use Step or Run to continue. O código inicial do projeto é este: unit UntCadastroClientes; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, IBCustomDataSet, IBDatabase, DBCtrls, StdCtrls, Mask, ExtCtrls; type TFrmCadastroClientes = class(TForm) IBDtbsEstoque: TIBDatabase; IBTrnsctnEstoque: TIBTransaction; IBDtStClientes: TIBDataSet; IBDtStClientesCODIGO: TIntegerField; IBDtStClientesNOME: TIBStringField; IBDtStClientesLOGRADOURO: TIBStringField; IBDtStClientesCIDADE: TIBStringField; IBDtStClientesBAIRRO: TIBStringField; IBDtStClientesUF: TIBStringField; IBDtStClientesCEP: TIBStringField; IBDtStClientesCOMPLEMENTO: TIBStringField; IBDtStClientesCPF: TIBStringField; IBDtStClientesCNPJ: TIBStringField; IBDtStClientesTELEFONEFIXO: TIBStringField; IBDtStClientesTELEFONECELULAR: TIBStringField; IBDtStClientesEMAIL: TIBStringField; IBDtStClientesDATANASC: TDateField; IBDtStClientesFOTO: TBlobField; LblCodigo: TLabel; DBdtCodigo: TDBEdit; dtsrclIBDTclientes: TDataSource; LblNome: TLabel; DBdtNome: TDBEdit; LblLogradouro: TLabel; DBdtLogradouro: TDBEdit; LblCidade: TLabel; DBdtCidade: TDBEdit; LblBairro: TLabel; DBdtBairro: TDBEdit; LblUf: TLabel; DBdtUf: TDBEdit; LblCEP: TLabel; DBdtCep: TDBEdit; LblComplemento: TLabel; DBdtComplemento: TDBEdit; LblCPF: TLabel; DBdtCPF: TDBEdit; LblCNPJ: TLabel; DBdtCNPJ: TDBEdit; LblTelefoneFixo: TLabel; DBdtTelefoneFixo: TDBEdit; LblTelefoneCelular: TLabel; DBdtTelefoneCelular: TDBEdit; LblEmail: TLabel; DBdtEmail: TDBEdit; LblDatNasc: TLabel; DBdtDataNascimento: TDBEdit; LblFoto: TLabel; DBImage1: TDBImage; DBNvgtrclientes: TDBNavigator; private { Private declarations } public { Public declarations } end; var FrmCadastroClientes: TFrmCadastroClientes; implementation {$R *.dfm} end. Valendo lembrar que usei o Interbase 6.5 e o Delphi 7 Valeu galera!!!

Mas eu faço isso e mesmo assim não dá certo, será pau no windows? hehehe Valeu maluco

olá queria saber porque qd salvo um cód de java com a terminação ".java" e com o "salvar como tipo=todos os arquivos", o bl de notas salva como .txt. Estou fazendo algo errado? falow

galera este está resolvido Valeu ISoron

olá galera!! Eu baixei o jdk1.5.0 e não consegui configurá-lo na minha máquina, uso o XP, e apesar de seguir passo-a-passo da tutor aqui do SB, nãso deu em nada digitar "javac" no prompt. Alguém pode ajudar?? Valeu

tem como mandar para nandinhodf@oi.com.br ??? ou posta aqui mesmo você é que decide, se você quizer adicionar-me para ficar melhor ...... nandinho@mfs.eng.br (MSN)

OLÁ PESSOAL, VOLTEI PARA INCOMODAR!!!HEHEHE estou querendo fazer um programa que, por exemplo, avise a data de aniversário de alguém dois dias antes, ao iniciar o programa é claro` É possível? Como ficaria a lógica e o cód??? Falow galerinha Desculpe por incomodar tanto