Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
daniele.teti@gmail.com 2013-08-26 10:46:14 +00:00
parent 6ecfa3df8f
commit ef1716492e
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/GlobalDemo/GlobalDemo/MainForm.dfm
View File

@ -138,7 +138,7 @@ object frmMain: TfrmMain
Left = 8
Top = 72
Width = 340
Height = 69
Height = 161
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13

11
examples/GlobalDemo/GlobalDemo/ReceiverForm.pas
View File

@ -73,8 +73,15 @@ begin
port := Copy(s, Pos(':', s) + 1, length(s));
stomp.SetUserName(edtUserName.Text);
stomp.SetPassword(edtPassword.Text);
stomp.Connect('localhost', 61613, 'myclientid', TStompAcceptProtocol.STOMP_Version_1_0);
th := TStompClientListener.Create(stomp, Self);
try
stomp.Connect('localhost', 61613, 'myclientid', TStompAcceptProtocol.STOMP_Version_1_0);
th := TStompClientListener.Create(stomp, Self);
except
on E: Exception do
begin
ShowMessage(E.ClassName + sLineBreak + E.Message);
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);