Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread ik
You need to bind the embedded API for it, and the rest is the same. You act
like it's a server.
I haven't done it myself, only read about it in the Firebird's source
documentation :)

Ido

http://ik.homelinux.org/


On Thu, Dec 17, 2009 at 8:35 AM, Graeme Geldenhuys
wrote:

> Michael Van Canneyt wrote:
> >
> > I use firebird embedded. Fast, reliable, easily installed and
> > much more powerful as sqlite.
>
> What is required to use firebird embedded? I know about it, but never
> looking into it.
>
> We have an application we need to distribute with minimal install and
> thought of firebird embedded, but I haven't had a chance to read up on it.
> Any pointers or URL's, wiki pages I can look at?
>
>
> Regards,
>  - Graeme -
>
> --
> fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
> http://opensoft.homeip.net/fpgui/
>
> ___
> fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Queue integer values

2009-12-17 Thread leledumbo

> I need a queue that can store integer values. Is there any way to use
TQueue for this task

You can extend TQueue to have a method to insert the integer as pointers.
Ex:

type
  TMyQueue = class(TQueue)
  public
procedure AddInt(const Integer: i);
  end;

... // implementation

procedure TMyQueue.AddInt(const Integer: i);
var
  p: PInteger;
begin
  New(p);
  p^:=i;
  Add(p);
end;

Just don't forget to Dispose all the contents before destroying the queue or
you'll have memory leak.

> or does a generic queue class exist which I can use?

AFAIR, no. Last time I check, only list and map have been implemented. But
you can make your own, it's not difficult.
-- 
View this message in context: 
http://old.nabble.com/Queue-integer-values-tp26817366p26824766.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Michael Van Canneyt



On Thu, 17 Dec 2009, ik wrote:


You need to bind the embedded API for it, and the rest is the same. You act 
like it's a server.
I haven't done it myself, only read about it in the Firebird's source 
documentation :)


All it takes (if you use sqldb) is 1 statement in a unit initialization or 
program startup code:

uses ibase60dyn; // must be there

Begin
  UseEmbeddedFirebird:=True;

That's it.

Michael.


Ido

http://ik.homelinux.org/


On Thu, Dec 17, 2009 at 8:35 AM, Graeme Geldenhuys  
wrote:
  Michael Van Canneyt wrote:
  >
  > I use firebird embedded. Fast, reliable, easily installed and
  > much more powerful as sqlite.

What is required to use firebird embedded? I know about it, but never
looking into it.

We have an application we need to distribute with minimal install and
thought of firebird embedded, but I haven't had a chance to read up on it.
Any pointers or URL's, wiki pages I can look at?


Regards,
 - Graeme -

--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pas...@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal



___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Forum merger

2009-12-17 Thread Michael Van Canneyt



On Wed, 16 Dec 2009, Andreas Berger wrote:



If I made one, then I'll make it using Powtils (fully CGI) or ExtPascal 
(fully Ajax) because that's what I know and have been experience with. I 
myself prefer to use fpWeb since it's provided by FPC's FCL. No third party 
dependency is good for new comers, and it's also better FPC/Lazarus 
promotion. I also intend to study fpWeb and would try to combine it with 
ExtPascal, if possible.
I vote for a CGI approach (Then I could help). A sub-vote would go for fpWeb 
(Just need to find some good documentation for it), but I would accept 
Powtils.


The advantage of fpweb is that it doesn't matter whether you want to use
an apache module, plain cgi or fastcgi, or in a standalone server. 
It works with all 4 types.


Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Bee Jay
So I would recommend going with something closer to home (part of  
FPC) -
like fpWeb. This gives much better certainty that it will be  
continuously
maintained - even if that only means no new feature but at least  
compilable

with latest FPC.


Yes, that's also the main reason of mine to build a web forum using  
fpWeb, instead of Powtils or ExtPascal.


--

-Bee-

...making buzzes at http://twitter.com/beezing
...writing stories at http://beeography.wordpress.com

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Michael Van Canneyt



On Wed, 16 Dec 2009, Roberto Padovani wrote:


What about data encryption? Is anyone of those providing it ?


Firebird definitely not. 
Personally, I don't think that this is the task of a database engine...


Michael.



Thanks!

R#

2009/12/16 ik :

You also have Firebird Embeeded and MySQL Embedded (I really dislike MySQL)
afaik.

Ido

http://ik.homelinux.org/


On Wed, Dec 16, 2009 at 4:53 PM, Codebue Fabio - P-Soft
 wrote:


I'm trying to develop an application on windows mobile with lazarus/free
pascal.
I need SQL server embedded on it to manage a lot of data.

SQLite3 is the only solution available?

I CAN'T find information anywhere... some idea?



Codebue Fabio

___
fpc-pascal maillist  -  fpc-pas...@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal



___
fpc-pascal maillist  -  fpc-pas...@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Graeme Geldenhuys
Michael Van Canneyt wrote:
> 
> All it takes (if you use sqldb) is 1 statement in a unit initialization or 
> program startup code:
> 
> uses ibase60dyn; // must be there
> 
> Begin
>UseEmbeddedFirebird:=True;
> 


Thanks Michael. Any thoughts on a tiOPF patch for the SqlDB persistence
layer? ;-)



Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Michael Van Canneyt



On Thu, 17 Dec 2009, Graeme Geldenhuys wrote:


Michael Van Canneyt wrote:


All it takes (if you use sqldb) is 1 statement in a unit initialization or 
program startup code:

uses ibase60dyn; // must be there

Begin
   UseEmbeddedFirebird:=True;




Thanks Michael. Any thoughts on a tiOPF patch for the SqlDB persistence
layer? ;-)


And what should it do according to you ?

IMHO tiOPF kicks in too late; the layer is loaded only once, at program startup.

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Graeme Geldenhuys
Michael Van Canneyt wrote:
> 
> The advantage of fpweb is that it doesn't matter whether you want to use
> an apache module, plain cgi or fastcgi, or in a standalone server. 
> It works with all 4 types.

That's good news!  Can you explain more about what you mean by "standalone
server"? One of our lightweight apps we are thinking of is a simple
executable with built-in HTTP Server support (no Apache or other full
featured HTTP servers required) - is that what you mean by "standalone
server"?  This 'lightweight' HTTP server application will be executed
before the client access our CGI apps on localhost. I still have code lying
around somewhere which is about 400 lines of code implementing a basic HTTP
server that also supports CGI - it simply uses the available TCP support
from FPC - no 3rd party components like INDY, lnet etc...


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Queue integer values

2009-12-17 Thread Reimar Grabowski
> You can extend TQueue to have a method to insert the integer as pointers.
Thanks for the answer, but I already found a way of using TQueue directly to 
solve my problem.

R.
-- 
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing in e-mail?
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Graeme Geldenhuys
Michael Van Canneyt wrote:
> 
> And what should it do according to you ?
> IMHO tiOPF kicks in too late; the layer is loaded only once, at program 
> startup.

Exactly why I'm asking your? :-) Can the initialization code in SqlDB
(firebird embedded) not be delayed or overridden slightly later - after
application startup?  Note: I haven't tried to use Firebird Embedded yet -
so just thinking out loudly.

If push comes to shove, I can always hard-code our "lightweight" apps to
use SqlDB Embedded like you showed before, but I would prefer to keep it
flexible via compiler defines - like the way persistence layers are toggled
in tiOPF.


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Osvaldo Filho
Well, fpWeb is winner, yes?
Bee can create a sourceforge project?

2009/12/17 Graeme Geldenhuys :
> Michael Van Canneyt wrote:
>>
>> The advantage of fpweb is that it doesn't matter whether you want to use
>> an apache module, plain cgi or fastcgi, or in a standalone server.
>> It works with all 4 types.
>
> That's good news!  Can you explain more about what you mean by "standalone
> server"? One of our lightweight apps we are thinking of is a simple
> executable with built-in HTTP Server support (no Apache or other full
> featured HTTP servers required) - is that what you mean by "standalone
> server"?  This 'lightweight' HTTP server application will be executed
> before the client access our CGI apps on localhost. I still have code lying
> around somewhere which is about 400 lines of code implementing a basic HTTP
> server that also supports CGI - it simply uses the available TCP support
> from FPC - no 3rd party components like INDY, lnet etc...
>
>
> Regards,
>  - Graeme -
>
> --
> fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
> http://opensoft.homeip.net/fpgui/
>
> ___
> fpc-pascal maillist  -  fpc-pas...@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Michael Van Canneyt



On Thu, 17 Dec 2009, Graeme Geldenhuys wrote:


Michael Van Canneyt wrote:


And what should it do according to you ?
IMHO tiOPF kicks in too late; the layer is loaded only once, at program startup.


Exactly why I'm asking your? :-) Can the initialization code in SqlDB
(firebird embedded) not be delayed or overridden slightly later - after
application startup?  Note: I haven't tried to use Firebird Embedded yet -
so just thinking out loudly.

If push comes to shove, I can always hard-code our "lightweight" apps to
use SqlDB Embedded like you showed before, but I would prefer to keep it
flexible via compiler defines - like the way persistence layers are toggled
in tiOPF.


I don't see the benefit in that. Compiler defines are evil, no need to promote 
them.

You can perfectly create a descendent of the existing tiOPF DB connection, which, 
when created, sets the variable if the library was not yet loaded. In effect, this
should do the same as what I did PROVIDED no other code attempts to use the sqldb 
layer.


If you then register this new connection as firebird-embedded, then you have 
the choice.
No compiler defines needed, and you have the choice.

(Note that it is impossible to mix the two, but that is a firebird limitation).

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Michael Van Canneyt



On Thu, 17 Dec 2009, Graeme Geldenhuys wrote:


Michael Van Canneyt wrote:


The advantage of fpweb is that it doesn't matter whether you want to use
an apache module, plain cgi or fastcgi, or in a standalone server.
It works with all 4 types.


That's good news!  Can you explain more about what you mean by "standalone
server"? One of our lightweight apps we are thinking of is a simple
executable with built-in HTTP Server support (no Apache or other full
featured HTTP servers required) - is that what you mean by "standalone
server"?  This 'lightweight' HTTP server application will be executed
before the client access our CGI apps on localhost. I still have code lying
around somewhere which is about 400 lines of code implementing a basic HTTP
server that also supports CGI - it simply uses the available TCP support
from FPC - no 3rd party components like INDY, lnet etc...


Joost van der sluis has developed a leightweight lnet server app, which 
you can use to debug the webserver modules. There is no reason why you could

not use it in a production environment. You could even use his code to
create a bridge between fpweb and your server app.

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Bee Jay

Well, fpWeb is winner, yes?
Bee can create a sourceforge project?


If it would use fpWeb then I refuse to be the project owner because I  
almost know nothing about fpWeb. I even intend to study fpWeb from  
this project. The project owner should be someone who knows how to  
build (at least) the application skeleton using the choosen framework  
as the base for further work by someone elses.


BTW, I prefer googlecode to host an open source project.

--

-Bee-

...making buzzes at http://twitter.com/beezing
...writing stories at http://beeography.wordpress.com

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Michael Van Canneyt



On Thu, 17 Dec 2009, Bee Jay wrote:


Well, fpWeb is winner, yes?
Bee can create a sourceforge project?


If it would use fpWeb then I refuse to be the project owner because I almost 
know nothing about fpWeb. I even intend to study fpWeb from this project. The 
project owner should be someone who knows how to build (at least) the 
application skeleton using the choosen framework as the base for further work 
by someone elses.


BTW, I prefer googlecode to host an open source project.


If it is going to be used for FPC, we can create a project on the FPC SVN 
server, this is not really a problem.


Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Matthias Klumpp
On Thu, 17 Dec 2009 16:23:08 +0100 (CET), Michael Van Canneyt
 wrote:
> On Thu, 17 Dec 2009, Bee Jay wrote:
> 
>>> Well, fpWeb is winner, yes?
>>> Bee can create a sourceforge project?
>>
>> If it would use fpWeb then I refuse to be the project owner because I
>> almost
>> know nothing about fpWeb. I even intend to study fpWeb from this
project.
>> The
>> project owner should be someone who knows how to build (at least) the 
>> application skeleton using the choosen framework as the base for further
>> work
>> by someone elses.
>>
>> BTW, I prefer googlecode to host an open source project.
> 
> If it is going to be used for FPC, we can create a project on the FPC SVN

> server, this is not really a problem.

Why don't use Git this time? It's making code review and code merging from
other sources a lot easier.

(Just my 2 cents)
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Matthias Klumpp
On Thu, 17 Dec 2009 16:23:08 +0100 (CET), Michael Van Canneyt
 wrote:
> On Thu, 17 Dec 2009, Bee Jay wrote:
> 
>>> Well, fpWeb is winner, yes?
>>> Bee can create a sourceforge project?
>>
>> If it would use fpWeb then I refuse to be the project owner because I
>> almost
>> know nothing about fpWeb. I even intend to study fpWeb from this
project.
>> The
>> project owner should be someone who knows how to build (at least) the 
>> application skeleton using the choosen framework as the base for further
>> work
>> by someone elses.
>>
>> BTW, I prefer googlecode to host an open source project.
> 
> If it is going to be used for FPC, we can create a project on the FPC SVN

> server, this is not really a problem.

Why don't use Git this time? It's making code review and code merging from
other sources a lot easier.

(Just my 2 cents)
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Bee Jay
The advantage of fpweb is that it doesn't matter whether you want to  
use
an apache module, plain cgi or fastcgi, or in a standalone server.  
It works with all 4 types.


Is there any demo or documentation about them, especially the FCGI? I  
only saw CGI demos and very lack of documentation around fpWeb, CMIIW.


I've been spoiled by ExtPascal, and I love the CGI gateway and auto- 
shutdown feature of ExtPascal. Can a similar feature be implemented in  
fpWeb?


How about binding with JS framework for the browser side UI? Also the  
Ajax part. I propose fpWeb to support Google's Closure for that purpose.


Are they possible to be done with fpWeb? How much effort will be  
required to achieve it? Where should we start to work on it?


TIA.

--

-Bee-

...making buzzes at http://twitter.com/beezing
...writing stories at http://beeography.wordpress.com

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Vincent Snijders

Matthias Klumpp schreef:



server, this is not really a problem.


Why don't use Git this time? 


A. Because there no Git Server on the FPC SVN server.


It's making code review and code merging from
other sources a lot easier.


I don't understand what you mean here.

Vincent
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] sql server embedded: sqlite the only solution?

2009-12-17 Thread Graeme Geldenhuys
2009/12/17 Michael Van Canneyt :
>
> I don't see the benefit in that. Compiler defines are evil, no need to
> promote them.

The compiler defines for linking persistence layers are limited to one
unit out of about three hundred units - no compiler defines are in
your actual project code, only in the Compiler Options dialog which
then applies to the whole project. So that's not really promoting
them.


> You can perfectly create a descendent of the existing tiOPF DB connection,
> which, when created, sets the variable if the library was not yet loaded. In

This is what I meant - I'll take a look closer at the time when we
actually need embedded firebird support.


> (Note that it is impossible to mix the two, but that is a firebird
> limitation).

No, I was going to use one or the other, not both firebird connection methods.


-- 
Regards,
  - Graeme -


___
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Problem compiling DLL for 64Bit Windows - complete example attached

2009-12-17 Thread Lukas Gradl

Hi!

I'm having serious troubles compiling a DLL for 64bit Windows.
I'm using FPC svn 1 (Ver 2.5.1) on all machines. I tried on WinXP 
32bit (works), Vista 64bit (doesn't work), Win7 32Bit (works) and Win7 
64bit (doesn't work).


The DLL works as a print-monitor, providing a virtual printer port.

For the definitions I used the windows-Unit whereever it would work, the 
missing ones (mainly the Monitor-Structure i ported from MSDN.

(http://msdn.microsoft.com/en-us/library/aa506794.aspx)

To see the problem copy the resulting dll in your \windows\system32 
folder. Then add a registry folder 
HKLM\SYSTEM\CurrentControlSet\Control\Print\Monitors\PMon64Test
Inside this folder add a string named "Driver" with a value of 
"PMon64.dll" (which has to be the name of the dll in the System32 Folder.

Restart the Spooler-Service and try to add a Printer to your system.

On Win64 the Spooler Service will produce an Error with the ErrorCode 
0x06be, on win32 the normal AddPrinter Dialog will appear.


The source attached provides a basic dll, wich will do nothing but write 
some information to C:\TMP\DEBUG.TXT if that file is existant (so please 
create it first!)


The Source is:

Start

library PMon64;

{$mode Delphi}
{$H+}

uses Windows, Sysutils;

type
  pMonitor=^rMonitor;

  TEnumPortsFunc=function(pName:LPWSTR;dwLevel:DWORD;pPorts:LPBYTE;
  cbBuf:DWORD;pdwNeeded:LPDWORD;
  pdwReturned:LPDWORD):BOOL;stdcall;
  TOpenPortFunc=function(pName:LPWSTR;H:PHANDLE):BOOL;stdcall;
  TOpenPortExFunc=function(pName,pPrinterName:LPWSTR;H:PHANDLE;
   _Monitor:pMonitor):BOOL;stdcall;
  TStartDocPortFunc=function(hPort:HANDLE;pPrinterName:LPWSTR;
 JobID,Level:DWORD;
 pDocInfo:LPBYTE):BOOL;stdcall;
  TWritePortFunc=function(hPort:HANDLE;pBuffer:LPBYTE;
  cbBuf:DWORD;pcbWritten:LPDWORD):BOOL;stdcall;
  TReadPortFunc=function(hPort:HANDLE;pBuffer:LPBYTE;cbBuf:DWORD;
 pcbRead:LPDWORD):BOOL;stdcall;
  TEndDocPortFunc=function(hPort:HANDLE):BOOL;stdcall;
  TClosePortFunc=function(hPort:HANDLE):BOOL;stdcall;
  TAddPortFunc=function(pName:LPWSTR;h:HWND;
pMonitorName:LPWSTR):BOOL;stdcall;
  TAddPortExFunc=function(pName:LPWSTR;Level:DWORD;pBuffer:LPBYTE;
  pMonitorName:LPWSTR):BOOL;stdcall;
  TConfigurePortFunc=function(pName:LPWSTR;h:HWND;
  pMonitorName:LPWSTR):BOOL;stdcall;
  TDeletePortFunc=function(pName:LPWSTR;h:HWND;
   pMonitorName:LPWSTR):BOOL;stdcall;
  TGetPrinterDataFromPortFunc=function(hPort:HANDLE;ControlID:DWORD;
 pValueName,lpInBuffer:LPWSTR;
 cbInBuffer:DWORD;
 lpOutBuffer:LPWSTR;
 cbOutBuffer:DWORD;
 lpcbReturned:LPDWORD):BOOL;stdcall;
  TSetPortTimeOutsFunc=function(hPort:HANDLE;lpTCO:pCommTimeouts;
reserved:DWORD):BOOL;stdcall;
  TXcvOpenPortFunc=function(pszObject:LPCWSTR;GrantedAccess:ACCESS_MASK;
phXcv:PHANDLE):BOOL;stdcall;
  TXcvDataPortFunc=function(hXcv:HANDLE;pszDataName:LPCWSTR;
pInputData:PBYTE;cbInputData:DWORD;
pOutputData:PBYTE;cbOutputData:DWORD;
pcbOutputNeeded:PDWORD):DWORD;stdcall;
  TXcvClosePortFunc=function(hXcv:HANDLE):BOOL;stdcall;

  rMonitor=packed record
pfnEnumPorts: TEnumPortsFunc;
pfnOpenPort: TOpenPortFunc;
pfnOpenPortEx: TOpenPortExFunc;
pfnStartDocPort: TStartDocPortFunc;
pfnWritePort: TWritePortFunc;
pfnReadPort: TReadPortFunc;
pfnEndDocPort: TEndDocPortFunc;
pfnClosePort: TClosePortFunc;
pfnAddPort: TAddPortFunc;
pfnAddPortEx: TAddPortExFunc;
pfnConfigurePort: TConfigurePortFunc;
pfnDeletePort: TDeletePortFunc;
pfnGetPrinterDataFromPort: TGetPrinterDataFromPortFunc;
pfnSetPortTimeOuts: TSetPortTimeOutsFunc;
pfnXcvOpenPort: TXcvOpenPortFunc;
pfnXcvDataPort: TXcvDataPortFunc;
pfnXcvClosePort: TXcvClosePortFunc;
  end;
  rMonitorEx=packed record
dwMonitorSize:DWORD;
Monitor:rMonitor;
  end;
  pMonitorEx=^rMonitorEx;

var
  Mon:rMonitorEx;

procedure DbgSend(Text:String);
var f:Textfile;
begin
  if FileExists('C:\TMP\DEBUG.TXT') then begin
AssignFile(f,'C:\TMP\DEBUG.TXT');
Append(f);
Writeln(f,FormatDateTime('HH:MM:SS',now())+': '+Trim(Text));
CloseFile(f);
  end;
end;

function EnumPorts(pName:LPWSTR;dwLevel:DWORD;pPorts:LPBYTE;
   cbBuf:DWORD;pdwNeeded:LPDWORD;
   pdwReturned:LPDWORD):BOOL;stdcall;
begin
  DbgSend('EnumPorts');
end;

function OpenPort(pName:LPWSTR;H:PHANDLE):BOOL;stdcall;
begin
  DbgSend('OpenPort');
end;

function StartDocPort(hPort:HANDL

Re: [fpc-pascal] Problem compiling DLL for 64Bit Windows - complete example attached

2009-12-17 Thread Marc Weustink

Lukas Gradl wrote:

Hi!

I'm having serious troubles compiling a DLL for 64bit Windows.
I'm using FPC svn 1 (Ver 2.5.1) on all machines. I tried on WinXP 
32bit (works), Vista 64bit (doesn't work), Win7 32Bit (works) and Win7 
64bit (doesn't work).


>   rMonitor=packed record
...

  end;

  rMonitorEx=packed record
dwMonitorSize:DWORD;
Monitor:rMonitor;
  end;


Are you sure the C record is packed too ? This would mean that all 
function pointers in rMonitor are not aligned.



Marc
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Graeme Geldenhuys
Vincent Snijders wrote:
> 
> A. Because there no Git Server on the FPC SVN server.

Git doesn't need a server/daemon app to work on a server - anyway, git
includes everything needed. Anyway, SourceForge and GitHub etc all support
Git repositories with no problems - so we don't need to disturb the FPC SVN
server.


>> It's making code review and code merging from
>> other sources a lot easier.
> 
> I don't understand what you mean here.

Use Git to find out. :-)  Consequently, I agree with Mattias.



Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Graeme Geldenhuys
Bee Jay wrote:
> 
> If it would use fpWeb then I refuse to be the project owner because I  
> almost know nothing about fpWeb.

Well if you don't use it, you will never learn it.  There seems to be 4 or
so developers interested in this. ANYBODY, just create a damn repository
and start coding - no point is talking about it and doing nothing.

Just so you know, I think the FPC based forum idea a nice idea (nice demo
app), but I have no time for it.

Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Vincent Snijders

Graeme Geldenhuys schreef:

I agree with Mattias.



I didn't think Mattias commented on this thread. Do you mean Matthias, 
who suggested to use Git on the FPC svn server?


Vincent
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Forum merger

2009-12-17 Thread Graeme Geldenhuys
Vincent Snijders wrote:
> 
> I didn't think Mattias commented on this thread. Do you mean Matthias,

ah, spelling mistake from my side. Yes, I was agreeing with what Matthias
Klumpp said.


> who suggested to use Git on the FPC svn server?

Then we can't call it a FPC SVN server any more. :-) I really don't care
where projects are created - I think SourceForge or GitHub are more visible
and accessible by all. So that would be my first choice anyway.



Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal