Ajuda em Delphi

Boas... AVxAMD ja tou a fazer progressos, ou seja tive a ver umas coisitas e descobri isto:



try
dmposto.ConexaoServerSQL.open
except
showmessage('deu erro no except');
end;


Só q o dmposto.ConexaoServerSql.open envia-me sempre uma exception a dizer que a ligacao deu erro pq n encontrou o server, ou seja, se eu arranja-se uma forma de tirar esta exception enviada pela instrução open tinha o problema resolvido...

tive a ver nos events da conexao mas n tem la nada que possa usar :(
 
Boas !BAS!.
Desculpa não ter dito nada,
mas estive de férias.
Esse erro é normal devido ao seguinte.
Tens a BD já num server?
Se não a tens dá esse erro.
Ao fazeres a conecção ao servidor que "Objecto"
estás a usar.
É algum da toolbar "FastNet" ou "Internet"?
Diz algo.
Já agora se usas o MSN aqui tens o meu contacto:
[email protected]
Terei o maior gosto em ajudar-te no que eu poder.
Um grande abraço.
 
AvxAMD pa n tens nada q te desculpar, eu na ultima semana n estive em contacto com o programa nem com o Delphi, estive a dar os ultimos retoques no software que apresentei em conjunção com a minha turma para o Concurso Nacional De Software da Microsoft e tivemos de la ir ontem defender o projecto, daí andei a ultima semanita aereo de tudo, inclusive do forum. Mas ja ca estou de volta. a situacao da base de dados e o seguinte:

o base de dados encontra-se noutro computador que esta aki ao meu lado e visto q a conexao vai ser via LAN n usei nenhum objecto, ou seja, usei simplesmente uma connection string para que ele no DataSource "veja" o nome do outro pc na rede,

so q este erro e devido a primeira configuracao da aplicacao, visto que ele tem de configurar para saber qual o pc ao qual se vai ligar, ou seja, ele pede ao user para introduzir o nome do server, mas o problema e q se o user colocar um nome de computador errado ele estoura completamente...
de qq forma logo a noite qndo xegar a casa vou-te adicionar ao msn e se estiveres online falo melhor ctg... desde ja obrigado []s
 
Boas |BAS!.
Tens que usar o objecto PowerSock,
senão nunca irás ligar-te ao servidor e vais ter sempre esse erro.
Vê os exemplos que estão em:
C:\Program Files\Delphi6\Demos\FastNet
C:\Program Files\Delphi6\Demos\Internet
Um abraço.
 
mas Avelino eu ligome ao servidor
se ele existir eu ligo-me
o problema e q se ele n existir ele da um erro e estoura. eu keria era controlar a existencia ou nao do servidor percebes?
 
Boas.
O PowerSock dá para veres se o Servidor, site, PC está
conectado ou não (online/offline) e dá a msg a dizer o estado do mesmo.
Logo se tiver na Net dou-te o codigo,
talvez sirva para o que queres.
Um abraço.
 
AvXAMD durante a tarde ja vou testar esse componente entao...

Pá mais uma vez agradeço-te a ajuda q me tens dado, um dia que vás ao porto diz q eu como vou começar a trabalhar la pago-te um copo


Abraços []s
 
Example

To recreate this example,
you will need to create a new blank Delphi application.

Drop 3 TButtons, a TMemo, and a TPowersock on the form.

Insert this code into Button1's OnClick event:

procedure TForm1.Button1Click(Sender: TObject);
begin
Powersock1.Host := 'www.netmastersllc.com';
Powersock1.Port := 80;
Powersock1.Connect;
end;

Insert this code into Powersock1's OnConnect event:

procedure TForm1.Powersock1Connect(Sender: TObject);
begin
Memo1.Lines.Add('Connected');
end;

Insert this code into Powersock1's OnDisconnect event:

procedure TForm1.Powersock1Disconnect(Sender: TObject);
begin
Memo1.Lines.Add('Disconnected');
end;

Insert this code into Button2's OnClick event:

procedure TForm1.Button2Click(Sender: TObject);
begin
Powersock1.Disconnect;
end;

Insert this code into Button3's OnClick event:

procedure TForm1.Button3Click(Sender: TObject);
begin
try
Powersock1.CertifyConnect;
Memo1.Lines.Add('Connection present');
except
Memo1.Lines.Add('Connection not present');
end;
end;


Example Description:
In this example, Button1's purpose is to connect to the remote host, which in this example is www.netmastersllc.com When a connection is established, the OnConnect event will notify the user of the application by displaying the message Connected in Memo1. When Button2 is clicked, the client will disconnect from the remote host, and the OnDisconnect event will display the message Disconnected in Memo2. When Button3 is pressed the CertifyConnect method is called from within a try...except loop. If there is no connection present, the exception is handled by adding the message Connection not present to Memo1. If there is a connection present, no exception is raised, and the message Connection present is added to Memo1, and the except part of the statement is bypassed.
 
Boas |BAS|.
Aqui está o belo código.
Agora é só pegares neste código e alterares conforme
as tuas necessidades.
Espero que ajude em algo.
Eu já usei este código para fazer uma verificação a sites
e servidores.
Tive é que alterar algumas coisas ao meu gosto e necessidades.
Um grande abraço.
Obs. Qualquer coisa, já sabes, diz.
 
Boas |BAS|.
Obrigado pela oferta, mas não é necessário.
Para mim o mais importante é ajudar as pessoas
e nunca querer nada em troca.
Um simples obrigado é muito bom para mim,
pois assim de alguma forma ainda me sinto util
nesta vida e mundo onde vivo.
Vou ver isso do SQL, sinceramente não sei,
mas tentar saber não custa. :)
Um grande abraço.
 
AVxAMD sem kerer entrar em discussoes, vens tomar algo cmg e calas-te :p pois alem de estar curioso por um dia te conhecer sinto-me na obrigação de fazer este pekeno gesto :D

Mais uma vez te digo obrigado
 
Boas pp!
Desculpem o post , mas ñ vou poder ajudar , pk ainda agora tou nas bases do delphi mas curto bue dakilo!
Sempre k poder ajudar podem dizer!
 
Inicie sessão ou registe-se para poder participar.
Back
Topo