Jhonas

é possivel sim... como os colegas já mostraram, mas o ideal é ativar as tabelas somente quando forem necessarias, ou seja, somente quando for usa-las abraço

Sim... abraço

Use o debugger ( break point ) do delphi para saber exatamente onde esta o erro abraço

Vamos montar uma aplicação em delphi para ouvir varias radios online Em um Form coloque os seguintes componentes 1 - ListBox // para colocar a lista de radios 1 - Edit // para montar o caminho para uma determinada radio 1 - TrackBar // para servir como controle de volume da radio ... mude o nome para TBVolume 1 - Botao // para iniciar 1 - Botao // para parar e sair No Listbox voce vai colocar os nomes das radios exemplo: existe uma lista grande neste endereço segue agora o código do Form var Form1: TForm1; wb: TWebBrowser; implementation {$R *.dfm} uses MMSystem, SHDocVw; procedure TForm1.FormActivate(Sender: TObject); begin wb := TWebBrowser.Create(Form1); TWinControl(wb).Name := 'MyWebBrowser'; //TWinControl(wb).Parent := Form1; wb.Hide; // deixar o WebBrowser invisivel end; procedure TForm1.Button1Click(Sender: TObject); begin wb.Navigate(Edit1.Text); end; procedure TForm1.tbVolumeChange(Sender: TObject); var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(tbVolume.position*4369)*65536+longint(tbVolume.position*4369)); end; end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; procedure TForm1.ListBox1Click(Sender: TObject); begin wb.Stop; Edit1.Clear; Edit1.Text := 'http:\\www.radios.com.br\play\'+ trim(ListBox1.Items.Strings[ListBox1.itemindex]); end; OBS: colocar na propriedade Max do TrackBar = 15 feito isso, é só clicar em um dos items do listbox ( nome da radio ) e clicar no Button1 para ouvir a radio se voce clicar em outro item do ListBox, a radio que estiver ouvindo para, e o edit recebe o caminho de outra radio este código pode ser melhorado e incrementado com outras opções abraço

Vamos montar uma aplicação em delphi para ouvir varias radios online Em um Form coloque os seguintes componentes 1 - ListBox // para colocar a lista de radios 1 - Edit // para montar o caminho para uma determinada radio 1 - TrackBar // para servir como controle de volume da radio ... mude o nome para TBVolume 1 - Botao // para iniciar 1 - Botao // para parar e sair No Listbox voce vai colocar os nomes das radios exemplo: existe uma lista grande neste endereço segue agora o código do Form var Form1: TForm1; wb: TWebBrowser; implementation {$R *.dfm} uses MMSystem, SHDocVw; procedure TForm1.FormActivate(Sender: TObject); begin wb := TWebBrowser.Create(Form1); TWinControl(wb).Name := 'MyWebBrowser'; //TWinControl(wb).Parent := Form1; wb.Hide; // deixar o WebBrowser invisivel end; procedure TForm1.Button1Click(Sender: TObject); begin wb.Navigate(Edit1.Text); end; procedure TForm1.tbVolumeChange(Sender: TObject); var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(tbVolume.position*4369)*65536+longint(tbVolume.position*4369)); end; end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; procedure TForm1.ListBox1Click(Sender: TObject); begin wb.Stop; Edit1.Clear; Edit1.Text := 'http:\\www.radios.com.br\play\'+ trim(ListBox1.Items.Strings[ListBox1.itemindex]); end; OBS: colocar na propriedade Max do TrackBar = 15 feito isso, é só clicar em um dos items do listbox ( nome da radio ) e clicar no Button1 para ouvir a radio se voce clicar em outro item do ListBox, a radio que estiver ouvindo para, e o edit recebe o caminho de outra radio este código pode ser melhorado e incrementado com outras opções abraço

mande um email sobre esse assunto para: suporte@bematech.com.br abraço

Sem usar o webborwser não dá ... o maximo que voce pode fazer é deixa-lo invisivel abraço

Nenhum arqumento para o formato '%s' esse erro não esta nessa linha de comando data:= qry.fieldbyname('DATA').AsDateTime; abraço

Maiores informações: http://www.macoratti.net/imp_fisc.htm abraço

faça o seguinte para testar a linha de comando coloque um showmessage antes do Ds.DataSet.Filter para saber qual valor ele esta recebendo... verifique se esta correto showmessage('Upper('+ Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName +') IN ('+ EdtValor.text + ')); abraço

voce erra em coisas que não deveria ... se voce não entende a mensagem de erro, fica dificil ... erro: esperado '(' 32 encontrado .... ou seja, deveria ter um parenteses e voce não colocou abraço

Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+QuotedStr(UpperCase(EdtValor.text)+'%'); com o operador IN não se pode usar % Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+QuotedStr(UpperCase(EdtValor.text)); observe no exemplo SELECT NUM, NUMVENDA FROM Moviment WHERE NUMVENDA IN (12) veja que é obrigatório o uso de parenteses (12) entre o numero com o operador IN abraço

Faça sempre uma pesquisa no forum, antes de postar a sua dúvida http://scriptbrasil.com.br/forum/index.php...irebird+em+rede abraço

Val Procedure Converte uma string em uma representação numerica Val(edtvalor.Text,Code,I); se voce digitar uma string o valor de Code será < 0 se voce digitar um inteiro ou um float o valor de Code será > 0 OBS: esses comandos são nativos do delphi ( F1 ) se voce não ler sobre a sintaxe desses comandos, levará muito tempo para aprender abraço

Não entendi ... dê um exemplo

exemplo: procedure TForm1.edtvalorExit(Sender: TObject); var Code, I : Integer; begin Val(edtvalor.Text,Code,I); if Code > 0 then Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+'('+edtvalor.text+')') else Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') LIKE '+'('+edtvalor.text+')'); end; abraço

QueryAssociados.Parameters.ParamByName('nome').Value := '%' + Edit1.text + '%'; Undeclared identifier: 'Parametes' , neste caso ficaria QueryAssociados.ParamByName('NOME').Value := '%' + Edit1.text + '%'; No caso de palavras acentuadas, depende de como voce digitar exemplo: Eletronica Eletrônica se voce digitar sem acento, a palavra Eletrônica não entrara no resultado da pesquisa se voce digitar até 'Eletr' então os dois entram no resultado da pesquisa abraço

esse erro acontece quando você cria um tipo de campo no banco, e na senteça o mesmo campo está com outro tipo exemplo: o campo cbxcampo é do tipo Alfanumerico, então se no campo edtvalor.text voce digita uma string não ocorre o erro mas se o campo cbxcampo é do tipo Numerico, então o operador Like não pode ser usado, mesmo que voce faça uma conversão de tipo na sentença neste caso para procurar um valor numerico voce pode usar o IN no lugar o LIKE, ou outro operador exemplo: SELECT NUM, NUMVENDA FROM Moviment WHERE NUMVENDA IN (1) no seu caso deveria ser: Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+'('+edtvalor.text+')'); abraço

Fça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=quick+report abraço

Extamente em qual linha ocorre o problema ?

Veja este link: http://dev.mysql.com/doc/refman/4.1/pt/isam.html abraço

Incluir null em uma string procedure TForm1.Button1Click(Sender: TObject); begin // colocar carcter nulo no final da string edit1.text := edit1.text + #0; end; abraço

foi mal ... erro no calculo MEsq := (PageSetupDialog1.MarginLeft / 2.54)/1000; MDir := (PageSetupDialog1.MarginRight / 2.54)/1000; MSup := (PageSetupDialog1.MarginTop / 2.54)/1000; MInf := (PageSetupDialog1.MarginBottom / 2.54)/1000; abraço

Usando o PageSetupDialog1 para definir as margens do RichEdit para impressão uses Printers; (* Setar as margens do RichEdit em Polegadas (1 polegada = 2.54 cm) para a impressora ativa *) procedure SetRichEditMargins( const mLeft, mRight, mTop, mBottom: extended; const re : TRichEdit); var ppiX, ppiY : integer; spaceLeft, spaceTop : integer; r : TRect; begin // pixels por polegadas ppiX := GetDeviceCaps(Printer.Handle, LOGPIXELSX); ppiY := GetDeviceCaps(Printer.Handle, LOGPIXELSY); // não imprimir margens spaceLeft := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX); spaceTop := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY); //calcular as margens R.Left := Round(ppiX * mLeft) - spaceLeft; R.Right := Printer.PageWidth - Round(ppiX * mRight) - spaceLeft; R.Top := Round(ppiY * mTop) - spaceTop; R.Bottom := Printer.PageHeight - Round(ppiY * mBottom) - spaceTop; // setar as margens re.PageRect := r; end; procedure TForm1.Button1Click(Sender: TObject); var MEsq, MDir, MSup, MInf : real; begin {Estilo = RETRATO Margem Esquerda = 25 Margem Direita = 20 Margem Superior = 20 Margem Inferior = 20} if PageSetupDialog1.Execute then begin Printer.Orientation := poPortrait; // vertical MEsq := (PageSetupDialog1.MarginLeft / 2.54)/1000; MDir := (PageSetupDialog1.MarginRight / 2.54)/1000; MSup := (PageSetupDialog1.MarginTop / 2.54)/1000; MInf := (PageSetupDialog1.MarginBottom / 2.54)/1000; SetRichEditMargins(MEsq, MDir, MSup, MInf, richEdit1); richEdit1.Print('Printing with margins'); end; end; abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); begin if FileExists(trim(Edit1.Text)) then begin OleContainer1.CreateLinkToFile(trim(Edit1.Text),TRUE); OleContainer1.SetFocus; end else MessageDlg('Arquivo não encontrado!!!' , mtInformation,[mbOk], 0); end; abraço