Jhonas

isso não tem problema nenhum.... entretanto dependendo do charset voce pode ter problemas com palavras acentuadas abraço

voce pode procurar o IBExpert em outros sites o fato do nome da tabela estar em maiusculo ou minusculo não interfere na conexão abraço

no meu pc funciona tente esse IBExpert para Windows XP, Vista, 7 e 8 - 32 e 64 bits http://ultradownloads.com.br/download/IBEXpert/ abraço

baixe da net o software EMS - QuickDesk é um gerenciador de banco de dados com muitos recursos https://www.google.com.br/search?q=quickdesk+firebird&ie=utf-8&oe=utf-8&gws_rd=cr&ei=e29LVu_vCMKtwASlyofgBA abraço

Você sabe por que não quer abrir o IBExpert no meu computador, ele abre e desaparece? se voce estiver usando o windows 7 ou 8, pode ser que voce tenha que executá-lo como administrador ou pode estar faltando alguma dll para ele executar Será que está dando erro, porque o arquivo empresa.fdb está corrompido? pode ser ... mas se voce conseguir abri-lo no gerenciador de banco de dados do Firebird, o programa tem recursos para corrigir o seu banco de dados ( empresa.fdb ) abraço

veja essa video aula abraço

a mensagem de erro diz que Empresa.FDB não é um banco de dados válido seu banco de dados pode estar corrompido ... tente abrir outro banco de dados se voce tiver se funcionar, voce pode testar com o seu programa OBS: O QuickDesk é muito facil de usar abraço

tente fazer uma conexão com banco diretamente, usando um gerenciador de banco de dados.. e veja se congue abrir o arquivo https://www.google.com.br/?gws_rd=cr,ssl&ei=BibBVeLoLoyANsGNrMAG#q=quickdesk+firebird+download abraço

ok ... segue o programa unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Arquivo : TextFile; Arquivo1 : TextFile; Line : string; num : integer = 0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S, VS, LINHA : string; SEQ,ZONA,SECAO,ELEITOR,TITULO,PAGS : string; begin Edit1.Clear; Edit2.Clear; AssignFile(Arquivo, 'C:\Arquivo.Txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); Memo1.Lines.add( Line ); // Usado apenas para controle S := trim(Line); LINHA := ''; LINHA := S; num := 0; while Pos(';', S) > 0 do begin inc(num); S[Pos(';', S)] := '#'; vs := copy(s,1,Pos('#', S)-1); delete(s,1,Pos('#', S)); case num of 1: SEQ := VS; 2: ZONA := VS; 3: SECAO := VS; 4: ELEITOR := VS; 5: TITULO := VS; 6: begin vs := copy(s,1,5); PAGS := VS; delete(s,1,5); num := 0; end; end; end; if Edit1.Text <> ZONA then begin Edit1.Text := ZONA; Edit2.Text := SECAO; Edit1.Refresh; Edit2.Refresh; if not(fileexists('C:\'+'Z'+ZONA+'S'+SECAO + '.txt')) then begin AssignFile(Arquivo1, 'C:\'+'Z'+ZONA+'S'+SECAO + '.txt'); Rewrite(Arquivo1); Writeln(Arquivo1, LINHA); CloseFile(Arquivo1); end else begin AssignFile(Arquivo1, 'C:\'+'Z'+ZONA+'S'+SECAO + '.txt'); Append(Arquivo1); Writeln(Arquivo1, LINHA); CloseFile(Arquivo1); end; end else begin Edit1.Text := ZONA; Edit2.Text := SECAO; Edit1.Refresh; Edit2.Refresh; if not(fileexists('C:\'+'Z'+ZONA+'S'+SECAO + '.txt')) then begin AssignFile(Arquivo1, 'C:\'+'Z'+ZONA+'S'+SECAO + '.txt'); Rewrite(Arquivo1); Writeln(Arquivo1, LINHA); CloseFile(Arquivo1); end else begin AssignFile(Arquivo1, 'C:\'+'Z'+ZONA+'S'+SECAO + '.txt'); Append(Arquivo1); Writeln(Arquivo1, LINHA); CloseFile(Arquivo1); end; end; end; CloseFile(Arquivo); SHOWMESSAGE('PROCESSO CONCLUIDO!'); end; end. abraço

ok... entendi que o nome de saida do arquivo seria assim: Z001S0001.txt Z001S0002.txt agora coloque como voce quer o conteudo do arquivo txt Separei um pedaço do arquivo em que ocorrerem 4 quebras: 001; 001; 0001; ADELAR DOS SANTOS; 000000303/53; 01 ( seriam 6 campos ) cada quebra pode ser representada pelo ( ; ponto e virgula ) quais campos voce quer como conteudo do arquivo ? cada linha seria um arquivo ? abraço

con = DriverManager.getConnection("jdbc:firebirdsql:localhost/3050:c:\\firebird\\empresa.fdb", "sysdba", "masterkey");tente alguma dessas maneiras: con = DriverManager.getConnection("jdbc:firebirdsql:localhost:c:/firebird/empresa.fdb"); con = DriverManager.getConnection("jdbc:firebirdsql:localhost/3050:C:/firebird/empresa.fdb"); con = DriverManager.getConnection("jdbc:firebirdsql:127.0.0.1/3050:C:/firebird/empresa.fdb"); con = DriverManager.getConnection("jdbc:firebirdsql:127.0.0.1:C:/firebird/empresa.fdb");abraço

voce pode fazer isso direto na pagina da web ( se voce for o desenvolvedor ) para fazer no delphi, voce teria que usar o componente webbrowser... voce carrega a pagina e depois lê o conteudo dos campos ( no forum tem exemplos ... procure por webbrowser ) abraço

coloque umas 10 linhas de exemplo, do arquivo txt e mostre exatamente o que esta querendo no arquivo de saida abraço

voce deve instalar o Java na sua maquina https://www.java.com/pt_BR/download/ OBS: veja se é 32 ou 64 Bits abraço

ok... sempre que tiver duvidas, seja o mais explicito possivel sobre o problema, que a ajuda fica mais facil abraço

acontece quando fico imprimindo mais de uma vez o relatório ok... voce devia ter dito isso no inicio isso acontece se voce não fechar a tabela e abri-la novamente quando for fazer uma nova impressão utilize sistema de copia, ou seja, quando for imprimir o mesmo relatorio mais de uma vez, use um comando while ou for para imprimir o relatorio abraço

ok ... verifique esses links https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://www.interspire.com/emailmarketer/pdf/InstallGuide.pdf&prev=search https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://domkolyasok.ru/Installation.pdf&prev=search https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://newbycomputers.com/members/Install%20MMP.pdf&prev=search abraço

isso pode acontecer quando se usa o evento chamado OnNeedData do QR http://www.planetadelphi.com.br/dica/4388/relatorio-no-quick-report-sem-tabela outra maneira, é quando, mesmo não tendo dados repetidos na Tabela, voce tem componentes repetidos no QR ou tem componentes Detail sobrepostos linkados a mesma tabela sugestão: monte outro Quick Report do zero e faça o teste. abraço

Atenção... Post movido para o Forum Visual Basic Este sub-fórum ( Tutoriais & Dicas - Visual Basic ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal

Atenção... Post Movido para o Forum de PHP Este sub-fórum ( Tutoriais & Dicas - PHP ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal

olhando por cima, parece que existe um erro de identação dos seus " IFs" verifique novamente o seu código com cuidado ( veja se quando uma condição é satisfeita ou não, onde deve ser a saida ) abraço

desligue o TP-LINK e ligue o cabo direto no notebook .... se funcionar, basta voce resetar o TP-LINK abraço

não teria outro componente que eu possa colocar para visualizar a data ? voce pode usar o DateEdit da biblioteca RxLib nesse link voce pode baixar a biblioteca para as versões do delphi 6 ao 2010 http://sourceforge.net/projects/rxlib/files/RxLib 2.7.7 for Delphi 6-2010/ se sua versão do delphi for outra, procure na net ( exemplo ) RxLib delphi 5 download instale os componentes ( são varios ... tem um arquivo Readme ou install ensinando a instalar os componentes ) ... O DateEdit vai estar na paleta RxControls abraço

isso é erro do sensor do carro ( cabeça de impressão ) deslique a impressora empurre a cabeça de impressão todo para direita lique novamente a impressora e veja se a cabeça de impressão para no meio faça o teste abraço

no componente TIdTCPServer, vá em propriedades e clique 2 vezes no evento OnExecute vai ficar algo tipo : ( alguns exemplos ) procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var Cmd: String; begin Cmd := AContext.Connection.IOHandler.ReadLn; ... if (Command is Successful) then AContext.Connection.IOHandler.WriteLn('200 ' + ...); else AContext.Connection.IOHandler.WriteLn('500 Some Error Text here'); end;=========================================================================== procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s: string; i: Integer; begin with AContext.Connection.IOHandler do try WriteLn('Type an integer and Enter'); s := ReadLn; try i := StrToInt(s); WriteLn(s + ' squared is ' + IntToStr(i*i)); except WriteLn(s + ' is not an integer'); end; finally Free; end; end;================================================================ um exemplo mais completo Server: type TClient = (TIdContext) UserName: String; Queue: TIdThreadSafeStringList; end; constructor TClient.Create(AConnection: TIdTCPConnection; AYarn: TIdYarn; AList: TIdContextThreadList = nil); begin inherited; Queue := TIdThreadSafeStringList.Create; end; destructor TClient.Destroy; begin Queue.Free; inherited; end; procedure TForm1.FormCreate(Sender: TObject); begin IdTCPServer1.ContextClass := TClient; end; procedure TForm1.IdTCPServer1Connect(AContext: TIdContext); begin AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; TClient(AContext).UserName := AContext.Connection.IOHandler.ReadLn; end; procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var Client: TClient; List, TempList: TStringList; S: String; I: Integer; begin Client := TClient(AContext); TempList := nil; List := Client.Queue.Lock; List.Count > 0 begin TempList := TStringList.Create; TempList.Assign(List); List.Clear; end; Queue.Unlock; end; TempList <> nil then begin I := 0 to TempList.Count-1 begin S := TempList; AContext.Connection.IOHandler.WriteLn(S); TThread.Queue(nil, procedure begin Memo1.Lines.Add( + Client.UserName + + S); end ); end; end; TempList.Free; end; AContext.Connection.IOHandler.InputBufferIsEmpty then AContext.Connection.IOHandler.CheckForDataOnSource(100); not AContext.Connection.IOHandler.InputBufferIsEmpty then begin S := AContext.Connection.IOHandler.ReadLn; TThread.Queue(nil, procedure begin Form1.Memo1.Lines.Add( + Client.UserName + + S); end ); end; end; procedure TForm1.SendMessageToClient( AUserName, AMsg: String); var List: TIdContextList; I: Integer; Client: TClient; AllClients: Boolean; begin AllClients := (AUserName = ); List := IdTCPServer1.Contexts.LockList; I := 0 to List.Count-1 begin Client := TClient(List); AllClients or TextIsSame(Client.UserName, AUserName) then begin Client.Queue.Add(AMsg); not AllClients then Break; end; end; IdTCPServer1.Contexts.UnlockList; end; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var User: String; begin Key = #13 then begin Key := #0; SendMessageToClient(UserName.Text, Edit1.Text); Edit1.Clear; end; end; Client: type TClientThread = (TThread) Conn: TIdTCPClient; procedure Execute; override; Queue: TIdThreadSafeStringList; constructor Create; reintroduce; destructor Destroy; override; procedure SendMessageToServer( AMsg: string); end; constructor TClientThread.Create; begin inherited Create(False); Conn := TIdTCPClient.Create; Conn.Host := ...; Conn.Port := ...; Conn.ConnectTimeout := 5000; ... Queue := TIdThreadSafeStringList.Create; end; destructor TClientThread.Destroy; begin Conn.Free; Queue.Free; inherited; end; procedure TClientThread.Execute; var Client: TClient; List, TempList: TStringList; S: String; begin not Terminated begin Conn.Connect; except TThread.Queue(nil, procedure Form1.Memo1.Lines.Add(); end ); I := 5; (not Terminated) and (I > 0) begin Sleep(1000); Dec(I); end; Continue; end; TThread.Queue(nil, procedure Form1.Memo1.Lines.Add(); end ); Queue.Clear; Conn.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; Conn.IOHandler.WriteLn(); not Terminated begin TempList := nil; List := Queue.Lock; List.Count > 0 then begin TempList := TStringList.Create; TempList.Assign(List); List.Clear; end; Queue.Unlock; end; TempList <> nil then begin I := 0 to TempList.Count-1 begin Terminated then Break; Conn.IOHandler.WriteLn(TempList); TThread.Queue(nil, procedure Form1.Memo1.Lines.Add( + TempList); end ); end; end; TempList.Free; end; Conn.IOHandler.InputBufferIsEmpty and (not Terminated) then Conn.IOHandler.CheckForDataOnSource(100); (not Conn.IOHandler.InputBufferIsEmpty) and (not Terminated) then begin S := Conn.IOHandler.ReadLn; TThread.Queue(nil, procedure begin Form1.Memo1.Lines.Add( + S); end ); end; end; Conn.Disconnect; TThread.Queue(nil, procedure Form1.Memo1.Lines.Add(); end ); end; except TThread.Queue(nil, procedure Form1.Memo1.Lines.Add(); end ); end; end; end; procedure TClientThread.SendMessageToServer( AMsg: string); begin Queue.Add(AMsg); end; var Thread: TClientThread = nil; procedure TForm1.ConnectButtonClick(Sender: TObject); begin Thread = nil then Thread := TClientThread.Create; end; procedure TForm1.DisconnectButtonClick(Sender: TObject); begin Thread <> nil then begin Thread.Terminate; Thread.WaitFor; FreeAndNil(Thread); end; end; procedure TForm1.Edit1KeyPress(AContext: TIdContext; var Key: Char); var S: String; begin Key = #13 then begin Key := #0; Thread <> nil then Thread.SendMessageToServer(Edit1.Text); Edit1.Clear; end; end; =============================================================== OBS: O código que vai no evento OnExecute depende do que voce esta querendo fazer abraço