I am completely new to programming and I have been watching this list over some few months.

I would be glad, if i can get a link to where I can get a book to download in order to learn pascal.

Can someone tell me.... where i can get free pascal compiler for ms-windows

goksie

Op Sat, 9 Jun 2007, schreef Aruna Goke:

Here is an on-line tutorial: http://www.taoyue.com/tutorials/pascal

Can someone tell me.... where i can get free pascal compiler for ms-windows

?? Here: http://www.freepascal.org/download.var

Daniël

After reading the tutorial suggested by Daniel, you sould go to http://en.wikipedia.org/wiki/Delphi_(programming_language) and follow a link to "object pascal language guide" to learn Object Pascal.

____________________________________________________________________________________ Pinpoint customers who are looking for what you sell. http://searchmarketing.yahoo.com/

Leonardo M. Ramé wrote

After reading the tutorial suggested by Daniel, you sould go to http://en.wikipedia.org/wiki/Delphi_(programming_language) and follow a link to "object pascal language guide" to learn Object Pascal.

Looking at http://en.wikipedia.org/wiki/Object_Pascal I see there are different syntax for objects.

Which one does FreePascal uses?

They list:
Apple's Object Pascal
Turbo Pascal's Object Pascal
Delphi's Object Pascal
Chrome's Object Pascal

Both Turbo Pascal's Object Pascal and Delphi's object pascal are supported, depending on which mode you compile in.

Michael.

Any tutorials out there on using Event Driven programming with Free Pascal?

I'm hoping to create a server/client combo that will need to respond to both input from the client part, and input from the server part

my server/client combo app
+--------------------------+
User ---> | server part-->client part| --> another server +--------------------------+

So, when my user talks to my server, I need to be able to respond, and when the other server talks to my client, I need to be able to respond.

Anyway, just a simple event driven programming tutorial using some version of Pascal will probably help.

Thanks

Michael Van Canneyt wrote

Both Turbo Pascal's Object Pascal and Delphi's object pascal are supported, depending on which mode you compile in.

If I have a class like:
program myclass;
 type
   THelloWorld = class
     procedure Put;
   end;
 var
   HelloWorld: THelloWorld;
 procedure THelloWorld.Put;
 begin
   WriteLn('Hello, World!');
 end;
 begin
   HelloWorld := THelloWorld.Create;
   HelloWorld.Put;
   HelloWorld.Free;
 end.

How do I use that class in another program?

Are you trying to create a Peer-To-Peer architecture?, something like Windows Messenger?.

I don't know how to implement that type of architecture, you can do a simple google search to find examples, but since it uses socket communications you can implement it using lNet or Synapse libraries with FreePascal.

Leonardo M. Ramé
http://leonardorame.blogspot.com

____________________________________________________________________________________ Looking for earth-friendly autos?
Browse Top Cars by "Green Rating" at Yahoo! Autos' Green Center. http://autos.yahoo.com/green_center/

Francisco, that's not only a class, it's a Program containing the THelloWorld class.

With Object Pascal (and Pascal), you can divide your program in units, then use those units in a program.

Example:

------------------------------------
Unit HelloWorld;
interface
type
  THelloWorld = class
    procedure Put;
  end;
implementation
procedure THelloWorld.Put;
begin
  WriteLn('Hello, World!');
end;

end.
------------------------------------
program MyProgram

uses
  HelloWorld; // this includes HelloWorld into your program
var
  myHelloWorl: THelloWorld;  // to declare a variable of type THelloWorld
begin
  myHelloWorld := THelloWorld.Create;  // to create an instance of THelloWorld.
  myHelloWorld.Put;                    // to execute Put method.
  myHelloWorld.Free;                   // to destroy the instance.
end.
-----------------------

Leonardo M. Ramé
http://leonardorame.blogspot.com

____________________________________________________________________________________ Need a vacation? Get great deals
to amazing places on Yahoo! Travel.
http://travel.yahoo.com/

You can:

uses
   UnitWithHello;

...

var
   VHello: THelloWorld;
begin
   VHello := THelloWorld.Create;
   try
     VHello.Put;
   finally
     VHello.Free;
   end;

or you can:

unit UnitWithHello;
type
   THelloWorldClass = class of HelloWorld;
   THelloWorld = class
     procedure Put; virtual; abstract;
   end;

...

unit AnotherUnit;
uses
   UnitWithHello;

...

procedure DoHello(AHelloClass: THelloWorldClass);
var
   VHello: THelloWorld;
begin
   VHello := AHelloClass.Create;
   try
     VHello.Put;
   finally
     VHello.Free;
   end;

or you can:

uses
   UnitWithHello;
type
   THelloWrapper = class
   private
     FHello: THelloWorld;
     function GetHello: THelloWorld;
   protected
     function InternalHelloClass: THelloWorldClass; virtual; abstract;
     property Hello: THelloWorld read GetHello;
   public
     destructor Destroy; override;
   end;

...

destructor THelloWrapper.Destroy;
begin
   FHello.Free;
   inherited;
end;
function THelloWrapper.GetHello: THelloWorld;
begin
   if not Assigned(FHello) then
     FHello := InternalHelloClass.Create;
   Result := FHello;
end;

or you can:

uses
   UnitWithHello;
type
   THelloWrapper = class
   private
     FHello: THelloWorld;
     FHelloClass: THelloWorldClass;
     function GetHello: THelloWorld;
  protected
     property Hello: THelloWorld read GetHello;
   public
     constructor Create(AHelloClass: THelloWorldClass);
     destructor Destroy; override;
   end;

...

constructor THelloWrapper.Create(AHelloClass; THelloWorldClass);
begin
   Assert(Assigned(AHelloClass), 'error');
   inherited Create;
   FHelloClass := AHelloClass;
end;
destructor THelloWrapper.Destroy;
begin
   FHello.Free;
   inherited;
end;
function THelloWrapper.GetHello: THelloWorld;
begin
   if not Assigned(FHello) then
     FHello := FHelloClass.Create;
   Result := FHello;
end;

And so on.

Leonardo M. Ramé wrote

With Object Pascal (and Pascal), you can divide your program in units, then use those units in a program.

Thanks for the example!

uses HelloWorld; // this includes HelloWorld into your program

FreePascal doesn't look in the current directory by default? I had to use
uses

  HelloWorld in 'HelloWorld.p';

Op Sat, 9 Jun 2007, schreef Francisco Reyes:

FreePascal doesn't look in the current directory by default? I had to use uses HelloWorld in 'HelloWorld.p'; _______________________________________________

It doesn't look for .p by default. Rename to .pas or .pp.

Daniël

It's what I like to call a pass through server. My ISP won't let me send email unless I'm on their network (at home). So, I have a server I wrote in VB that listens for a connection on a non standard port. When connected, it connects to my ISP's SMTP server. Anything it gets from the email client, it passes to the server. Anything it gets from the server it passes to the email client. Works like a charm. Only problem is that it's in Windows. I'm working towards getting rid of that windows box and replacing it with linux. So, I need to re-write this app in Linux. It's really the event part of it that I'm concerned with.

En/na Rick Seiden ha escrit:

You don't need to rewrite the app (unless you want to do it as a learning exercise). sshd can tunnel connections this way right out of the box, or if you want to do it the exact way you're doing now, you can, e.g. configure xinetd to forwar one port to your server to another port to another server (but that's extremely dangerous)

Bye

Daniël Mantione wrote

It doesn't look for .p by default. Rename to .pas or .pp.

Ok thanks.
Using .p because that is what vim checks for. Will figure out how to change vim to look for .pp for the coloring.

Contents of $HOME/.vim/filetype.vim:

" my filetype file
if exists("did_load_filetypes")
finish
endif
augroup filetypedetect
au! BufRead,BufNewFile *.pp setfiletype pascal augroup END

Best regards,
Pete C.

Pete Cervasio wrote

Contents of $HOME/.vim/filetype.vim:

Thanks. Found that it also works with .pas
Changed the programs to that since that is one of the extensiosn the compiler also checks for.

If you google for "vim delphi syntax" you can easily find a delphi syntax highlight file for vim. You can then connect .pas/.pp/.inc to that one in a similar way.

Micha