[fpc-pascal] Re: fpc-pascal Digest, Vol 60, Issue 47

Richard Jasmin jasminr at lavabit.com
Tue Jul 7 23:34:11 CEST 2009


If anyone knows how to do a line without assembler or BGI, as I'm using 
VESA, I'm all ears.I can't find the source that is non 32 bit assembler, 
even for TP.

fpc-pascal-request at lists.freepascal.org wrote:
> Send fpc-pascal mailing list submissions to
> 	fpc-pascal at lists.freepascal.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> 	http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> or, via email, send a message with subject or body 'help' to
> 	fpc-pascal-request at lists.freepascal.org
>
> You can reach the person managing the list at
> 	fpc-pascal-owner at lists.freepascal.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of fpc-pascal digest..."
>
>
> Today's Topics:
>
>    1. Re:  Insert into ... mysql (John Coppens)
>    2. Re:  GRAPHICS HELP : PLEASE PLEASE???? (John Coppens)
>    3. Re:  SHA1 implementation (Graeme Geldenhuys)
>    4. Re:  Re: SHA1 implementation (Graeme Geldenhuys)
>    5.  Re: GRAPHICS HELP : PLEASE PLEASE????
>       (Guillermo Mart?nez Jim?nez)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Mon, 29 Jun 2009 00:34:57 -0300
> From: John Coppens <john at jcoppens.com>
> Subject: Re: [fpc-pascal] Insert into ... mysql
> To: fpc-pascal at lists.freepascal.org
> Message-ID: <20090629003457.7e48512a.john at jcoppens.com>
> Content-Type: text/plain; charset=ISO-8859-1
>
> On Sun, 28 Jun 2009 15:42:04 -0500
> César Espinoza <cesarespinozasoto at gmail.com> wrote:
>
>   
>> But I can't (may be I dont know :-( ) insert data in a table
>>     
>
> If you can query, but not insert, there are a few things to check:
>
> - Is the syntax of your insert correct? I mean, does column 'lugar' exist,
>   and is it a varchar column, etc.?
> - Are you allowed to insert? (Check the privileges for the person
>   as who you log in. Insert, update, select, all have separate 'enables')
> - What is the message returned by mysql_error?
>
> John
>
>
> ------------------------------
>
> Message: 2
> Date: Mon, 29 Jun 2009 00:43:54 -0300
> From: John Coppens <john at jcoppens.com>
> Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE????
> To: fpc-pascal at lists.freepascal.org
> Message-ID: <20090629004354.ad18ba16.john at jcoppens.com>
> Content-Type: text/plain; charset=ISO-8859-1
>
> On Sun, 28 Jun 2009 18:23:12 -0700 (PDT)
> Zachary Marlow <zachary_marlow at yahoo.com> wrote:
>
>   
>> Well 
>>       Like How to draw a circle , I just need some example code please 
>>     
>
> Check this tutorial:
>
> http://pascalprogramming.byethost15.com/lesson8.php
>
> John
>
>
> ------------------------------
>
> Message: 3
> Date: Mon, 29 Jun 2009 09:02:52 +0200
> From: Graeme Geldenhuys <graemeg at opensoft.homeip.net>
> Subject: Re: [fpc-pascal] SHA1 implementation
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <4A48671C.6020807 at opensoft.homeip.net>
> Content-Type: text/plain; charset=UTF-8
>
> David Butler wrote:
>   
>> Have a look at Fundamentals 4's cHash unit:
>>   http://sourceforge.net/projects/fundementals/
>>     
>
> Thanks, there are some interesting code in there... Cool. :)
>
>
> In the end I did some more Google'ing and found a free implementation
> based on the FIPS 180-1 document. And it's all done in a single unit,
> which makes it nice and easy to use.
>
> I wrote a few unit tests just to confirm that the implementation is
> correct - and it was. :-)  The code is free of any license restrictions
> or platform specific code, so would FPC find a unit like this useful in
> the FCL? It makes no difference to me, but I thought I would ask.
>
>
> Regards,
>   - Graeme -
>
> _______________________________________________________
> fpGUI - a cross-platform GUI toolkit using Free Pascal
> http://opensoft.homeip.net/fpgui/
>
>
>
> ------------------------------
>
> Message: 4
> Date: Mon, 29 Jun 2009 09:06:04 +0200
> From: Graeme Geldenhuys <graemeg at opensoft.homeip.net>
> Subject: Re: [fpc-pascal] Re: SHA1 implementation
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <4A4867DC.1010007 at opensoft.homeip.net>
> Content-Type: text/plain; charset=UTF-8
>
> Paul Nicholls wrote:
>   
>> http://wiki.freepascal.org/DCPcrypt
>>     
>
> Ah thanks, I already use the Blowfish implementation from that package,
> but for some reason never thought to look in there for the SHA1
> implementation. In the end I got a nice lightweight (single unit)
> implementation that also passes all unit tests based on various
> documentation.
>
>
> Regards,
>   - Graeme -
>
> _______________________________________________________
> fpGUI - a cross-platform GUI toolkit using Free Pascal
> http://opensoft.homeip.net/fpgui/
>
>
>
> ------------------------------
>
> Message: 5
> Date: Mon, 29 Jun 2009 09:59:20 +0200
> From: Guillermo Mart?nez Jim?nez <gmartinez at burdjia.com>
> Subject: [fpc-pascal] Re: GRAPHICS HELP : PLEASE PLEASE????
> To: fpc-pascal at lists.freepascal.org
> Message-ID:
> 	<a2a0fbc20906290059l605b040bq335d11fae64df3c at mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1
>
>   
>> From: Zachary Marlow <zachary_marlow at yahoo.com>
>> Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE????
>> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
>> Message-ID: <491787.41572.qm at web35505.mail.mud.yahoo.com>
>> Content-Type: text/plain; charset="iso-8859-1"
>>
>> Well =
>>
>> =A0=A0=A0=A0=A0 Like How to draw a circle , I just need some example code p=
>> lease =
>>
>> =A0
>> PS THANKS FOR READING AND REPLYING
>>     
>
> There are a lot of ways to draw a circle. It depends why and where you
> need to draw a circle. There are a lot of differences if you need to
> draw it using X11 or using a graphical library. For example, using the
> Allegro.pas library:
>
> (* Draw circle using Allegro (http://allegro-pas.sourceforge.net/) *)
> PROGRAM circle;
>
> USES
>   allegro;
>
> BEGIN
>   IF NOT al_init THEN
>   BEGIN
>     WriteLn ('Error initialising Allegro');
>     EXIT;
>   END;
>   IF al_set_gfx_mode (AL_GFX_AUTODETECT, 320, 240, 0, 0) THEN
>   BEGIN
>     al_install_keyboard;
>     al_circle (al_screen, 160, 100, 50, al_makecol (255, 255, 255));
>     al_readkey;
>     al_exit;
>   END
>   ELSE
>     WriteLn ('Error setting graphics');
> END.
>
> Another way, using Lazarus add a TPaintBox to the TForm and set the
> "onDraw" event of the TPaintBox to this:
>
> PROCEDURE TForm1.PaintBox1Paint(Sender: TObject);
> VAR
>   Tmp: TForm1;
> BEGIN
>   Tmp := SELF;
>   WITH (Sender AS TPaintBox).Canvas DO
>   BEGIN
>     Ellipse (0, 0, Tmp.Width - 1, Tmp.Height - 1);
>   END;
> END;
>
>
> ------------------------------
>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
> End of fpc-pascal Digest, Vol 60, Issue 47
> ******************************************
>
> ____________________________________________________________________________________
> Use the link below to report this message as spam.
> https://lavabit.com/apps/teacher?sig=631912&key=2074436861
> ____________________________________________________________________________________
>
>   




More information about the fpc-pascal mailing list