?
Solved

Migrating from Indy 9 to 10 with Delphi, TIdSchedulerOfThreadPool problem

Posted on 2013-01-23
7
Medium Priority
?
936 Views
Last Modified: 2013-12-03
I'm in the process of updating a Delphi app from Indy 9 to Indy 10.

It's quite painful, as apparently a lot has changed.

I'm stuck at one step.

Here is the old code (working with Indy 9):

A Thread Pool is created and every thread of the pool is initialized and then started.
The individual threads create an indy http client (but it does not matter here).
  TUrlThread = class(TIdThread)

...  

var
  i: Integer;
begin
  // create the Pool and init it
  Pool            := TIdThreadMgrPool.Create(nil);
  Pool.PoolSize   := Options.RunningThreads;
  Pool.ThreadClass:= TUrlThread;

  // init threads and start them
  for i := 1 to Options.RunningThreads do
  begin
    with (Pool.GetThread as TUrlThread) do
    begin
      Index     := i;
      Controler := Self;
      Priority  := Options.Priority;
      Start;
    end;
  end;

Open in new window

The TIdThreadMgrPool class is gone with Indy 10.

I've looked for a replacement and TIdSchedulerOfThreadPool looks like a winner,
but I cannot get it running.

Here is the modified (Indy 10) code:
  TUrlThread = class(TIdThreadWithTask)

...

 var
  i: Integer;
begin
  // create the Pool and init it
  Pool            := TIdSchedulerOfThreadPool.Create(nil);
  Pool.PoolSize   := Options.RunningThreads;
  Pool.ThreadClass:= TUrlThread;

  // init threads and start them
  for i := 1 to Options.RunningThreads do
  begin
    with (Pool.NewThread as TUrlThread) do
    begin
      Index     := i;
      Controler := Self;
      Priority  := Options.Priority;
      Start;
    end;
  end;

Open in new window

I get an access violation exception here (this is indy code):
procedure TIdTask.DoBeforeRun;
begin
  FBeforeRunDone := True;
  BeforeRun;
end;

Open in new window

FBeforeRunDone is nil.
0
Comment
Question by:Casady
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
7 Comments
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 38823170
Try to install  latest version of Indy.
http://www.projectindy.org/Sockets/Download/DevSnapshot.EN.aspx
In source folder is Playgrounds folder with TIdSchedulerOfThreadPool example.
0
 

Author Comment

by:Casady
ID: 38823196
I've installed indy 10.1.5 about 1 week ago. This version has no playground folder.

If there is a newer version, would you please give me the direct URL of the installer.

The projectindy website often directs to 404 errors.
0
Don't Cry: How Liquid Web is Ensuring Security

WannaCry is just the start. Read how Liquid Web is protecting itself and its customers against new threats.

 

Author Comment

by:Casady
ID: 38835128
I did a SVN checkout of the daily Indy 10 and Indy 10 demos.

Unfortunately the problem remains, and the demos  don't have an example that uses TIdSchedulerOfThreadPool (die a grep in all .pas files for it).
0
 

Accepted Solution

by:
Casady earned 0 total points
ID: 38846484
I've received the solution in another forum.

In case someone else has this problem please see here:

http://stackoverflow.com/questions/14514810/migrating-from-indy-9-to-10-with-delphi-tidschedulerofthreadpool-initialization/14519101#14519101
0
 

Author Closing Comment

by:Casady
ID: 39073084
got answer on another forum and posted a link
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When it comes to write a Context Sensitive Help (an online help that is obtained from a specific point in state of software to provide help with that state) ,  first we need to make the file that contains all topics, which are given exclusive IDs. …
FAQ pages provide a simple way for you to supply and for customers to find answers to the most common questions about your company. Here are six reasons why your company website should have a FAQ page
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Any person in technology especially those working for big companies should at least know about the basics of web accessibility. Believe it or not there are even laws in place that require businesses to provide such means for the disabled and aging p…
Suggested Courses

800 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