Jump to content
Fórum Script Brasil
  • 0

Procedure só executa com ShowMessage!


Dolfin

Question

Galera, eu sou novo no Delphi como podem perceber hehe... Eu tentei fazer uma procedure aqui, mas ela só é executada quando tem um ShowMessage dentro dela!!

Ela tá declarada assim:

procedure SocketsConnect(Sender: TClientSocket);

Aí logo abaixo eu chamo ela assim:

SocketsConnect(Sockets);

E ela tá assim:

procedure TForm1.SocketsConnect(Sender: TClientSocket);
begin
    BannerControl:=0;
    UserAuthControl:=0;
    PassAuthControl:=0;
    //ShowMessage('To ae');
      if Sockets[i].Socket.ReceiveLength > 0 then
  begin
    Texto:= Sockets[i].Socket.ReceiveText;
    if (BannerControl = 0) and (UserAuthControl = 0) and (PassAuthControl = 0) then
     begin
       inc(BannerControl);
       Memo1.Lines.Append(Texto);
       Texto:='';
     end;
end;

Como podem ver tem até um ShowMessage comentado ali nela, que se eu deixo assim, nada dessa procedure é executado, mas se habilito o showmessage e clico em OK, executa a procedure toda certinha! Que isso???

Edited by Dolfin
Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Tente assim :

procedure TForm1.SocketsConnect(Sender: TClientSocket);
begin
    BannerControl:=0;
    UserAuthControl:=0;
    PassAuthControl:=0;

    Application.ProcessMessages; //  method 

      if Sockets[i].Socket.ReceiveLength > 0 then
  begin
    Texto:= Sockets[i].Socket.ReceiveText;
    if (BannerControl = 0) and (UserAuthControl = 0) and (PassAuthControl = 0) then
     begin
       inc(BannerControl);
       Memo1.Lines.Append(Texto);
       Texto:='';
     end;
end;

OBS: O showmessage provoca uma interrução na execução do código, então experimente usar o metodo ProcessMessages

abraço

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...