Send fpc-pascal mailing list submissions to 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 You can reach the person managing the list at 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 Subject: Re: [fpc-pascal] Insert into ... mysql To: Message-ID: Content-Type: text/plain; charset=ISO-8859-1 On Sun, 28 Jun 2009 15:42:04 -0500 César Espinoza 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 Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE???? To: Message-ID: Content-Type: text/plain; charset=ISO-8859-1 On Sun, 28 Jun 2009 18:23:12 -0700 (PDT) Zachary Marlow 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 Subject: Re: [fpc-pascal] SHA1 implementation To: FPC-Pascal users discussions Message-ID: 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 Subject: Re: [fpc-pascal] Re: SHA1 implementation To: FPC-Pascal users discussions Message-ID: 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 Subject: [fpc-pascal] Re: GRAPHICS HELP : PLEASE PLEASE???? To: Message-ID: Content-Type: text/plain; charset=ISO-8859-1 > From: Zachary Marlow > Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE???? > To: FPC-Pascal users discussions > Message-ID: > 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 - 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 ____________________________________________________________________________________