Solved

How do I programatically create Indy components

Posted on 2009-04-08
7
357 Views
Last Modified: 2012-05-06
Hi experts, I am trying to create a service and creating the indy components (tcpserver, udpserver) from code rather than dropping a component on a form.  I'm looking for some code sample that shows how to do this.

Thanks.
0
Comment
Question by:viziopoint
  • 3
  • 2
  • 2
7 Comments
 
LVL 13

Assisted Solution

by:ThievingSix
ThievingSix earned 25 total points
Comment Utility
Simple.

procedure Button1Click(Sender: TObject);
var
  IRC : TidIRC;
begin
  IRC := TidIRC.Create(...);
  IRC.Connect;
  blah blah
end;

Remember to include the correct units associated with the component in your uses for it to work.
0
 
LVL 36

Accepted Solution

by:
Geert Gruwez earned 100 total points
Comment Utility
GExperts has a very nice feature for this http://www.gexperts.org
after installing it into the Delphi IDE, do this:
put a component on your form as you normally do
then right click on the component
(gexperts will have added extra menu options)
Components to Code

This creates a variable, the component creation with the constructor and the properties

I got this, from 3 clicks and a Ctrl-V to paste:

var
  IdTCPClient1: TIdTCPClient;

  IdTCPClient1 := TIdTCPClient.Create(Self);
  with IdTCPClient1 do
  begin
    Name := 'IdTCPClient1';
    MaxLineAction := maException;
    ReadTimeout := 0;
    Port := 0;
  end;


0
 
LVL 13

Expert Comment

by:ThievingSix
Comment Utility
Hey, that's really useful!

Thanks Geert_Gruwez =D
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 

Author Comment

by:viziopoint
Comment Utility
The GeExpert tip is indeed a very really useful tip! - Thanks!

I'm getting some odd results though like:

Bindings := <>;
It tried to replace the <> with nil - compiles but does not work (crashes) so I just commented them out and it seems to work.

I also had problems with assigning event handlers since I don't have a form.  I was able to fix this with a little trick that I think is fine:

type
   TEventHandlers = class // create a dummy class
       procedure UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
   end;
...
var
   EvHandlers : TEventHandlers;
....
IdUDPSever1.OnUDPRead := EvHandlers.UDPServerUDPRead

to the component created with the GeExpert code and it seems to work.

I'll continue to test and report back.

Thanks again for the help.
0
 
LVL 36

Expert Comment

by:Geert Gruwez
Comment Utility
you don't have a form and you want to use an event handler ?

the way you do it with the dummy class is actually the solution!

why you may ask ... well because how the event handler is defined
a event handler is a method, and a method is a procedure of a object

TNotifyEvent = procedure (Sender: TObject) of object;

the *of object* at the end means it must be defined inside a class.

you will have to create a instance of EvHandlers at runtime too...

0
 
LVL 13

Expert Comment

by:ThievingSix
Comment Utility
Actually you should have the indy component in the event handler dummy class.
0
 

Author Comment

by:viziopoint
Comment Utility
Just wanted to confirm that following the tips above, everything worked fine.  Thanks Again!
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now