Jhonas

O arquivo config.ini não está sendo encontrado... poste a parte do código do programa em que é chamado este arquivo

O micro pode ter 2 entradas USB 2.0 ( frontal ) e 4 USB 1.1 ( trazeira ) faça o teste colocando na trazeira e na frontal .... verifique tambem se não veio um CD de instalação com os drives necessários abraço

O padrão de envio da imagem, normalmente pelo cabo VGA, é seguido por todos os fabricantes. O que pode acontecer é o notebook estar com uma configuração acima da suportada pelo seu datashow. Por exemplo, se o notebook estiver com a resolução de vídeo configurada como 1024x768, não são todos os projetores que conseguem reconhecer essa resolução. Tente diminuir a resolução para 800x600. No notebook também existe uma tecla especial (verificar no manual), para enviar a imagem para a saída de vídeo (normalmente F4+Fn). Caso nada disso funcione, teste o cabo de conexão em outro computador/notebook. abraço

Coloque o erro exatamente como ele aparece na tela

é porque o word foi aberto como editor de email, e neste caso voce é que tem que adicionar o anexo veja este exemplo: procedure TForm1.Button1Click(Sender: TObject); var montarEmail : String; begin IF OpenDialog1.Execute THEN BEGIN montarEmail := 'mailto:abotinas@sapo.pt ?cc=Fulano@bol.com.br' + '&subject=Assunto do email ' + '&body=Texto da Mensagem ' + '&MessageParts='+ OpenDialog1.FileName; // Anexar arquivo ShellExecute( handle,'open' ,PChar(montarEmail), '','',SW_SHOWNORMAL ); END; end; O arquivo para ser anexado deveria ser lido ( tamanho ) mas o shellExecute não consegue fazer isto Existem outras opções: http://www.devmedia.com.br/articles/viewcomp.asp?comp=1195 http://www.forumweb.com.br/foruns/lofivers...php/t25669.html http://www.faqts.com/knowledge_base/view.p...d/23223/fid/175 abraço

procedure proGetUsuario(usuario, senha : string); var i : integer; NewItem: TMenuItem; begin with TSQLQuery.Create(nil) do begin i := 0; SQLConnection := frmPrincipal.SQLConnection1; SQL.Text := ' select tel.telTela, ' + ' tel.telTag, ' + ' usu.usuUsuario, ' + ' usu.usuSenha, ' + ' usu.usuCodCliente ' + ' from tblusuario usu ' + 'inner join tbltela tel on telUsuario = usu.usuUsuario ' + ' and tel.telUsuario = '+ frmPrincipal.edtUsuario.Text+' ' + ' and usu.usuCodCliente = '+fncSistemaIni('cadastro','codigo')+' '; Open; if not IsEmpty then begin // Limpar os itens de Menu MainMenu1.Items.Clear; // Ler o itens que farao parte do menu While Not TSQLQuery.Eof do begin // Cria o item do Menu e depois inclui o mesmo // NewItem := TMenuItem.Create(Form1); NewItem.Caption := TSQLQuery['CAMPO']; // Conteudo do Campo que será o item de menu MainMenu1.Items.Add(NewItem); TSQLQuery.Next; end; end; Free; end; end; Como adicionar items de menu dinamicamente http://www.linhadecodigo.com.br/Dica.aspx?id=1095 abraço

Experimente colocar o caminho completo procedure TForm1.Button1Click(Sender: TObject); begin //WinExec('C:\Cast\programas.exe',SW_SHOW); //ShellExecute(Handle, 'open', PChar('C:\Cast\programas.exe'), PChar('/k config.ini'), nil, SW_SHOW); end; abraço

Componentes http://www.freedownloadscenter.com/Best/sftp-delphi.html http://www.torry.net/pages.php?id=1578 Exemplos http://www.example-code.com/delphi/sftp.asp abraço

Que tal aprender um pouco mais sobre Conceito de Banco de Dados... a leitura pode lhe ajudar muito http://www.scribd.com/doc/8451141/banco-dados-com-delphi abraço

Use esta função function StringtoHex(Data: string): string; var i, i2: Integer; s: string; begin i2 := 1; for i := 1 to Length(Data) do begin Inc(i2); if i2 = 2 then begin s := s + ' '; i2 := 1; end; s := s + IntToHex(Ord(Data[i]), 2); end; Result := s; end; DWORD represents a four-byte integer. procedure TForm1.CPRxChar(Sender: TObject; Count: Integer); var S:string; begin cp.ReadStr(S, 13); cp.ClearBuffer(True, True); memo1.Lines.Append(S); end; Para uma melhor compreensão olhe este tutorial Leitura Bufferizada de Sensores http://www.maxwellbohr.com.br/downloads/Tu...%20Sensores.pdf abraço

Voce trocou de posição do Windows na declaração da Uses... neste caso Forms deve vir primeiro program Project2; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {FormSplash}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); // Application.CreateForm(TFormSplash, FormSplash); outra maneira de criar FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Refresh; Sleep(2000); Application.Run; end. abraço

Ok.... veja se esta instalando corretamente o firebird seguindo este tutorial http://www.comunidade-firebird.org/cflp/do...s/CFLP_O027.PDF abraço

Claudio... procure sempre fazer uma pesquisa no forum para ver se já existem dúvidas parecidas com a sua usando a pesquisa e digitando a palavra ZEOS voce vai encontrar alguns tópicos relativos a sua dúvida http://scriptbrasil.com.br/forum/index.php...p;highlite=zeos OBS: Muito provavelmente é falta de dlls nessas máquinas para fazer acesso ao banco de dados abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=528172 abraço

Veja no final do artigo... vai encontrar o que está precisando http://www.rogercom.com/PortaSerial/Contro...ontrolePag4.htm abraço

Voce entendeu esta parte do código ? vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado Onde está 'C:\temp\arq.txt' é o caminho do seu arquivo que vai anexado ao email abraço

Faltou definir Uses Inifiles. Uses Inifiles; procedure TFGerente.FormCreate(Sender: TObject); Var Ip_Servidor : TInifile; begin Conexoes := Tlist.Create; Ip_Servidor := TiniFile.Create('config.Ini'); IBDatabase1.DatabaseName := 'Dados\Dados.gdb'; IBDatabase1.Connected := True; IBTransaction1.Active := True; end; procedure TFGerente.Image1Click(Sender: TObject); var Comput1 : Tinifile; begin Ip := ''; Comput1 := TInifile.Create('Dados\Config.ini'); Ip := Comput1.ReadString('SERVIDOR', 'IP_M1','Default'); ls1.Caption := Comput1.ReadString('SERVIDOR', 'IP_M1','Default'); ls1.Visible:=true; label1.Caption := Ip; Panel1.Visible := true; Panel1.Top:=70; Panel1.Left:=84; comput1.Free; end; abraço

Acho que voce não viu que no exemplo existe uma janela com vários botões que voçe escolhe o tipo de grafico... no entanto o que voce deve olhar com calma é o código. abraço

Não é algo tão trivial ... voce terá que ler um pouco mais sobre o delphi exemplo: criando um botão e um checkbox em tempo de execução procedure TForm1.FormClick(Sender: TObject); var Botao : TButton; Chekbox : TCheckBox; begin Botao := TButton.Create(form1); with Botao do begin Visible := true; Left := 200; Top := 64; Width := 75; Height := 25; Caption := 'Button1'; TabOrder := 1; OnClick := Button1Click; Name := 'botao1'; Parent := Form1; end; chekbox := TCheckBox.Create(form1); with Chekbox do begin Visible := true; Left := 232; Top := 40; Width := 97; Height := 17; Caption := 'CheckBox1'; TabOrder := 0; Name := 'Ckeck1'; Parent := Form1; end; end; Veja nestes endereços para saber mais a respeito: http://www.dpi.ufv.br/downloads/cursoKylix...tilas/ccu02.htm http://www.protheus.hpg.com.br/delphi.htm http://www.geocities.com/WallStreet/Exchan...hi/delphi_3.htm exemplos http://www.delphibr.com.br/exemplos.php abraço

Deve ser algo parecido com isto SheetOpenOffice.getCellRangeByName('A1').setPropertyValue('CellBackColor',clAqua); ou baixe o manual http://ftp.unicamp.br/pub/broffice/stable/...stall_pt-BR.exe abraço

Existe um exemplo no proprio delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Teechart abraço

Sempre faça uma pesquisa no forum para saber se existem dúvidas parecidas com as suas http://scriptbrasil.com.br/forum/index.php...st&p=498488 abraço

Um programa pronto que voce pode tirar algumas ideias program Notepad; uses Forms, UnitMain in 'UnitMain.pas'{FormMain}, Unit1 in 'Unit1.pas'{AboutBox}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TFormMain, FormMain); Application.CreateForm(TAboutBox, AboutBox); Application.Run; end. unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TFormMain = class(TForm1) RichEdit1: TRichEdit; MainMenu1: TMainMenu; MenuFile: TMenuItem; ItemNew: TMenuItem; ItemOpen: TMenuItem; ItemSave: TMenuItem; ItemSaveAs: TMenuItem; N2: TMenuItem; ItemPrint: TMenuItem; N4: TMenuItem; ItemClose: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; N1: TMenuItem; ItemFont: TMenuItem; FontDialog1: TFontDialog; PopupMenu1:TPopupMenu; ItemUndo: TMenuItem; N3: TMenuItem; ItemRedo: TMenuItem; ItemCut: TMenuItem; ItemCopy: TMenuItem; ItemPaste: TMenuItem; ItemDelete: TMenuItem; N5: TMenuItem; ItemSelectAll:TMenuItem; N6: TMenuItem; ItemFindText: TMenuItem; ItemFindAndReplace: TMenuItem; FindDialog1: TFindDialog; MenuEdit: TMenuItem; ItemUndo1:TMenuItem; ItemRedo1: TMenuItem; N7: TMenuItem; ItemCut1: TMenuItem; ItemCopy1: TMenuItem; ItemPaste1: TMenuItem; ItemDelete1: TMenuItem; N8: TMenuItem; ItemSelectAll1: TMenuItem; N9: TMenuItem; ItemFind1: TMenuItem; ItemFindAndPlace1: TMenuItem; N10: TMenuItem; ItemAutoWarp1: TMenuItem; N11: TMenuItem; ItemAutoWarp: TMenuItem; ReplaceDialog1: TReplaceDialog; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; procedure ItemNewClick(Sender: Tobject); procedure ItemOpenClick(Sender: Tobject); procedure ItemSaveClick(Sender: Tobject); procedure ItemPrintClick(Sender: Tobject); procedure ItemCloseClick(Sender: Tobject); procedure ItemFondClick(Sender: Tobject); procedure PopupMenu1Popup(Sender: Tobject); procedure ItemUndoClick(Sender: Tobject); procedure ItemRedoClick(Sender: Tobject); procedure ItemCutClick(Sender: Tobject); procedure ItemCopyClick(Sender: Tobject); procedure ItemPasteClick(Sender: Tobject); procedure ItemDelectClick(Sender: Tobject); procedure ItemSelectClick(Sender: Tobject); procedure ItemFindTextClick(Sender: Tobject); procedure FindDialog1Find(Sender: Tobject); procedure ItemAutoWarp1Click(Sender: Tobject); procedure ItemFindAndReplaceClick(Sender: Tobject); procedure ReplaceDialog1Replace(Sender: Tobject); procedure FormCreat(Sender: Tobject); procedure MenuFileClick(Sender: Tobject); procedure FromCloseQuery(Sender: Tobject; var CanClose: Boolean); procedure N14Click(Sender: Tobject); private sFileName:String; Function CheckhasModified:Boolean; Function SaveAsFile:Boolean; Function SaveFile:Boolean; Function MyOpenFile(FileName:String):Boolean; { Private declarations } public { Public declarations } end; var FormMain: TFormMain; implementation uses RichEdit,Unit1; {$R *.dfm} function TFormMain.CheckHasModified: Boolean; begin Result:=not RichEdit1.Modified; if not Result then begin Case Application.MessageBox('??????!??????','??', MB_YESNO+mB_ICONQUESTION) OF IDYES:Result:=SaveFile; IDNO:Result:=True; end; end; end; procedure TFormMain.ItemNewClick(Sender: TObject); begin If CheckHasModified Then begin RichEdit1.Lines.Clear; RichEdit1.Modified:=False; sFileName:='???'; end; end; function TformMain.SaveAsFile:Boolean; begin Result:=False; if SaveDialog1.Execute then begin RichEdit1.Lines.SaveToFile(SaveDialog1.FileName0; RichEdit1.Modified:=False; sFileName:=SaveDialog1.FileName; Result:=True; end; end; procedure TFormMain.ItemOpenClick(Sender: TObject); begin if OpenDialog1.Execute then MyOpenFile(OpenDialog1.FileName); end; Procedure TFormMain.ItemSaveClick(Sender: TObject); begin SaveFile; end; function TFormMain.SaveFile: Boolean; begin If sFileName='???' then Result:=SaveAsFile else begin RichEdit1.Lines.SaveToFile(sFileName); RichEdit1.Modified:=False; Result:=True; end; end; procedure TFormMain.ItemSaveAsClick(Sender:TObject); begin SaveAsFile; end; procedure TFormMain.ItemPrintClick(Sender:TObject); begin RichEdit1.Print(sFileName); end; procedure TFormMain.ItemCloseClick(Sender: TObject); begin Close; end; procedure TFormMain.ItemFontClick(Sender: TObject); begin FontDialog1.Font.Assign(RichEdit1.Font); if FontDialog1.Execute then RichEdit1.Font.Assign(FontDialog1.Font); end; procedure TFormMain.PopupMenu1Popup(Sender: TObject); begin ItemUndo.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy.Enabled:=ItemCut.Enabled; ItemPaste.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp.Checked:=RichEdit1.WordWrap; ItemUndo1.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo1.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut1.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy1.Enabled:=ItemCut.Enabled; ItemPaste1.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp1.Checked:=RichEdit1.WordWrap; end; procedure TFormMain.ItemUndoClick(Sender: TObject); begin RichEdit1.Perform(EM_UNDO,0,0); end; procedure TFormMain.ItemRedoClick(Sender:TObject); begin RichEdit1.Perform(EM_REDO,0,0); end; procedure TFormMain.ItemCutClick(Sender: TObject); begin RichEdit1.Perform(WM_CUT,0,0); end; procedure TFormMain.ItemCopyClick(Sender:TObject); begin RichEdit1.Perform(WM_COPY,0,0); end; procedure TFormMain.ItemPasteClick(Sender:TObject); begin RichEdit1.Perform(WM_Paste,0,0); end; procedure TFormMain.ItemDeleteClick(Sender: TObject); begin RichEdit1.Perform(WM_CLEAR,0,0); end; procedure TFormMain.ItemSelectAllClick(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); FindDialog1.Position := P; FindDialog1.Execute; end; procedure TFormMain.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos :=SelStart + SelLength; ToEnd := Length(Richedit1.Text) - StartPos; st:=[]; if frMatchCase in FindDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in FindDialog1.Options then st:=st+[stWholeWord]; FoundAt := FindText(FindDialog1.FindText,StartPos,Toend,st); if FoundAt <> -1 then begin SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end else ShowMessage('????!') end; end; procedure TFormMain.ItemAutoWarp1Click(Sender: TObject); begin RichEdit1.WordWrap:=not RichEdit1.WordWrap; ItemAutoWarp1.Checked:=RichEdit1.WordWrap; ItemAutoWarp.Checked:=RichEdit1.WordWrap; end; Function TFormMain.MyOpenFile(FileName:String):Boolean; begin Result:=False; if CheckHasModified then begin try RichEdit1.Lines.LoadFromFile(FileName); RichEdit1.Modified:=False sFileName:=FileName; Result:=True; except on E:Exception do ShowMessage(E.Message); end; end; end; procedure TFormMain.ItemFindAndREplaceClick(Sender:TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject): var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos := SelStart + SelLength; ToEnd := Length(RichEdit1.Text) - StartPos; st:=[]; if frMatchCase in ReplaceDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in ReplaceDialog1.Options.then st:=st+[stWholeWord]; FoundAt := FindText(Replacedialog1.FindText, StartPos, ToEnd, st); While FoundAt <> -1 do begin SelStart := FoundAt; SelLength := Length(ReplaceDialog1.FindText); Perform(EM_REPLACESEL,1,Interger(PChar(Replacedialog1.ReplaceText))); SelStart := FoundAt; SelLength := Length(ReplaceDialog1.ReplaceText); if not (frReplaceAll in ReplaceDialog1.Options) then Break; StartPos:=SelStart; ToEnd := Length(RichEdit1..Text) - StartPos; FoundAt := FindText(ReplaceDialog1.FindText, StartPos,ToEnd,st); end; FoundAt:= FindText(ReplaceDialog1.FindText,StartPos,ToEnd,st); if FoundAt=-1 then ShowMessage('????!'); end; end; procedure TFormMain.FormCreate(Sender: TObject); Var s1FileName,TemStr,ParamString:String; i,FromIndex,ToIndex,iPox:Integer; Reg:TRegistry; begin try Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CLASSES_ROOT; Reg.OpenKey('*\shell\MyNotePad',True); Reg.WriteString('','????????'); Reg.CloseKey; Reg.OpenKey('*\Shell\MyNotePad\Command',True); Reg.WriteString('','"'+ParamStr(0)+'" "%1"'); Reg.CloseKey; finally Reg.Free; end; except end; if ParamCount>=1 then begin i:=1; ParamString:=ParamStr(i); While (ParamString[1]='/') and(i<=ParamCount) do begin Inc(i); ParamString:=ParamStr(i); end; FromIndex:=i; ParamString:=ParamStr(i); if ParamString[1]='/' then Exit; While i<=ParamCount do begin if ParamString[1]='/' then Break; Inc(i); ParamString:=ParamStr(i); end; ToIndex:=i; s1FileName:=GetCommandLine; ParamString:=ParamStr(FromIndex); iPos:=Pos(ParamString,s1Filename); TemStr:=ParamString; Delete(s1Filename,1,iPos-1+length(TemStr)); For i:=FromIndex+1 to ToIndex do begin ParamString:=ParamStr(i); iPos:=pos(ParamString,s1FileName); TemStr:=TemStr+copy(s1FileName,1,iPos+length(ParamString)); end; s1FileName:=TemStr; MyOpenFile(s1FileName); For i:=1 to ParamCount do begin if (ParamStr(i)='/p') or(ParamStr(i)='/p' then begin if Application.MessageBox('????','??',MB_YESNO+MB_ICONQUESTION) =IDYes then RichEdit1.Print(sFileName); Break; end; end end; end; procedure TFormMain.MenuFileClick(Sender: Tobject); begin ItemSave.Enabled:=RichEdit1.Modified; end; procedure TFormMain.FormCloseQuery(Sender: TObject; VAr CanClose:Boolean); begin CanClose:=not RichEdit1.Modified; if not CanClose then begin Case Application.MessageBox('??????!??????','??', MB_YESNOCANCEL+MB_ICONQUESTION) of IDYES:CanClose:=SaveFile; IDNo:CanClose:=True; end; end; end; procedure TFormMain.N14Click(Sender:TObject); begin AboutBox.showmodal; end; end. abraço

este comando : showmessage(GridLocalControleCaixa.SelectedField.AsString); deveria mostrar a voce o conteúdo do campo selecionado da sua DBGrid //GridLocalControleCaixa.SetFocus; GridLocalControleCaixa.SelectedIndex := 0; end; end; end; showmessage(GridLocalControleCaixa.SelectedField.AsString); if GridLocalControleCaixa.Focused = True then begin With QueryLocalControleCaixa Do begin Close; SQL.Clear; SQL.Add('SELECT * FROM ESTACAI.dbf'); SQL.Add('WHERE CAIDAT = :pData'); ////////////////////// LINHA QUE O ERRO ACUSA/////////////////////// ParamByName('pData').AsDateTime := StrToDate(GridLocalControleCaixa.SelectedField.AsString); ////////////////////// LINHA QUE O ERRO ACUSA/////////////////////// Open; Observe que voce selecionou o primeiro campo do seu DBgrid ... e se este campo não for data vai dar erro experimente mudar o showmessage de posição e veja o que ocorre abraço

Fiz um teste aqui usando uma Query e não deu problema entretanto o erro que voce esta relatando não é de uma Query e sim de um Table... verifique abraço