[fpc-pascal] low level disk access under Windows
Pianoman
pianoman at centrum.sk
Fri Oct 6 14:29:18 CEST 2006
Hello, I'd like to ask if someone has experiences with low level
disk operations in windows with FPC.
The program should be able to copy entire diskete to one single image file
and for example extract a single file from that image or view its contents.
For example how can I read one sector from disk in to buffer?
Thanx for help
Pianoman
----- Original Message -----
From: <fpc-pascal-request at lists.freepascal.org>
To: <fpc-pascal at lists.freepascal.org>
Sent: Friday, October 06, 2006 1:31 PM
Subject: fpc-pascal Digest, Vol 26, Issue 16
> 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: Re: fpUnit - AssertEquals gives Access violation
> (Vincent Snijders)
> 2. [libtar.pas]:Error: Illegal type conversion: "ShortString"
> to "^Char" without compilator options (TOUZEAU DAVID)
> 3. Re: [libtar.pas]:Error: Illegal type conversion:
> "ShortString" to "^Char" without compilator options (Vincent
> Snijders)
> 4. Re: Last missing benchmark: regex-dna (Marco van de Voort)
> 5. Re: Re: fpUnit - AssertEquals gives Access violation
> (Graeme Geldenhuys)
> 6. Re: [libtar.pas]:Error: Illegal type conversion:
> "ShortString" to "^Char" without compilator options (TOUZEAU DAVID)
> 7. RE: Get Local IP using glib (eth0,eth1) (Jeff Pohlmeyer)
> 8. Re: RE: Get Local IP using glib (eth0,eth1) (Marco van de Voort)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 06 Oct 2006 11:58:16 +0200
> From: Vincent Snijders <vsnijders at quicknet.nl>
> Subject: Re: [fpc-pascal] Re: fpUnit - AssertEquals gives Access
> violation
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <452628B8.2010708 at quicknet.nl>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Graeme Geldenhuys schreef:
>> Oh, I forgot to mention. If the ObjectStates match, the test passes
>> fine, and doesn't give an access violation.
>>
>> While creating the new AssertEquals method, I purposefully created a
>> failure with then gives the access violation, instead to the
>> comparison message I expected:
>> "Failing on 1: Expected <posClean> but got <posEmpty>"
>>
>
> Try creating a back trace, maybe that gives some insight.
>
> Vincent
>
>
> ------------------------------
>
> Message: 2
> Date: Fri, 06 Oct 2006 12:17:20 +0200
> From: TOUZEAU DAVID <david.touzeau at fr.kaspersky.com>
> Subject: [fpc-pascal] [libtar.pas]:Error: Illegal type conversion:
> "ShortString" to "^Char" without compilator options
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <45262D30.5020101 at fr.kaspersky.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Dear
>
> I would like to use some units developped from delphi/klyx with Lazarus
> IDE On Linux.
>
> It seems that there is some differences between delphi/freepascal
> especially for longstring conversion.
>
> Many times, i received this compilator error :
>
> For example by using the LibTar.pas
> (http://www.destructor.de/libtar/index.htm)
>
> libtar.pas(355,8) Error: Illegal type conversion: "ShortString" to "^Char"
>
> i fixed this error with {$H+}{$LongString On} tokens
>
> But is it this good way ??? is there an another solution ??
>
> Best regards.
>
> --
>
> David Touzeau -------------------------- Linux Ubuntu Dapper 6.0.6
> FreePascal-Lazarus,perl,delphi,php icq:160018849
>
>
> ------------------------------
>
> Message: 3
> Date: Fri, 06 Oct 2006 12:19:46 +0200
> From: Vincent Snijders <vsnijders at quicknet.nl>
> Subject: Re: [fpc-pascal] [libtar.pas]:Error: Illegal type conversion:
> "ShortString" to "^Char" without compilator options
> To: david.touzeau at fr.kaspersky.com, FPC-Pascal users discussions
> <fpc-pascal at lists.freepascal.org>
> Message-ID: <45262DC2.3010305 at quicknet.nl>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> TOUZEAU DAVID schreef:
>> Dear
>>
>> I would like to use some units developped from delphi/klyx with Lazarus
>> IDE On Linux.
>>
>> It seems that there is some differences between delphi/freepascal
>> especially for longstring conversion.
>>
>> Many times, i received this compilator error :
>>
>> For example by using the LibTar.pas
>> (http://www.destructor.de/libtar/index.htm)
>>
>> libtar.pas(355,8) Error: Illegal type conversion: "ShortString" to
>> "^Char"
>>
>> i fixed this error with {$H+}{$LongString On} tokens
>>
>> But is it this good way ??? is there an another solution ??
>
> An alternative is to add {$mode delphi} to the source file or compile
> with -Sd
> compiler option.
>
> Vincent
>
>
> ------------------------------
>
> Message: 4
> Date: Fri, 6 Oct 2006 12:32:52 +0200 (CEST)
> From: marcov at stack.nl (Marco van de Voort)
> Subject: Re: [fpc-pascal] Last missing benchmark: regex-dna
> To: ???? ??????????? <ppkk at mail.ru>, FPC-Pascal users discussions
> <fpc-pascal at lists.freepascal.org>
> Message-ID: <20061006103252.8F7882288E at snail.stack.nl>
> Content-Type: text/plain; charset="US-ASCII"
>
>> > Although fpc has a regexpr unit:
>> > http://svn.freepascal.org/svn/fpc/trunk/packages/base/regexpr/regexpr.pp
>> > It has many todos, such as adding support for | in the search
>> > expression. So this
>> > unit doesn't have enough functionality.
>>
>> While '|' support is to be considered basic regex functionality, what is
>> the really expected functionality?
>>
>> Basic seems to be: |()?*+ (non-UNICODE) support (from wikipedia).
>
> | is not basic afaik. From re_format BSD Manpage:
>
> Obsolete (``basic'') regular expressions differ in several respects.
> `|'
> is an ordinary character and there is no equivalent for its
> functional-
> ity. `+' and `?' are ordinary characters, and their functionality can
> be expressed using bounds (`{1,}' or `{0,1}' respectively). Also note
> that `x+' in modern REs is equivalent to `xx*'. The delimiters for
> bounds are `\{' and `\}', with `{' and `}' by themselves ordinary
> characters. The parentheses for nested subexpressions are `\(' and
> `\)', with `(' and `)' by themselves ordinary characters. `^' is an
> ordinary character except at the beginning of the RE or= the beginning
> of a parenthesized subex- pression, `$' is an ordinary character
> except
> at the end of the RE or= the end of a parenthesized subexpression, and
> `*' is an ordinary charac- ter if it appears at the beginning of the
> RE
> or the beginning of a paren- thesized subexpression (after a possible
> leading `^'). Finally, there is one new type of atom, a back
> reference: `\' followed by a non-zero deci- mal digit d matches the
> same sequence of characters matched by the dth parenthesized
> subexpression (numbering subexpressions by the positions of their
> opening parentheses, left to right), so that (e.g.) `\([bc]\)\1'
> matches `bb' or `cc' but not `bc'.
>
>
>
> ------------------------------
>
> Message: 5
> Date: Fri, 6 Oct 2006 12:54:44 +0200
> From: "Graeme Geldenhuys" <graemeg.lists at gmail.com>
> Subject: Re: [fpc-pascal] Re: fpUnit - AssertEquals gives Access
> violation
> To: "FPC-Pascal users discussions" <fpc-pascal at lists.freepascal.org>
> Message-ID:
> <cfcebe780610060354i326fdcaen38b161bfa100633b at mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Here is the backtrace. I removed all other Assert tests, so only the
> one that causes the problem is executed.
>
> What is strange though, is that I created a new test that only creates
> the object and then tests the ObjectState. It it works, but all the
> other actual tests don't. I hate such problems! :-)
>
> Graeme.
>
>
> -------------- Start ---------------
> [New Thread -1216787536 (LWP 20619)]
> [Switching to Thread -1213515552 (LWP 20607)]
>
> Breakpoint 1, 0x0805f036 in fpc_raiseexception ()
> (gdb) bt
> #0 0x0805f036 in fpc_raiseexception ()
> #1 0x082189d9 in FPCUNIT_TASSERT_$__FAIL$ANSISTRING ()
> #2 0xb7f04ac0 in ?? ()
> #3 0xb7a69200 in ?? ()
> #4 0x082189ff in FPCUNIT_TASSERT_$__ASSERTTRUE$ANSISTRING$BOOLEAN ()
> #5 0xb7f04ac0 in ?? ()
> #6 0x08218b45 in
> FPCUNIT_TASSERT_$__ASSERTEQUALS$ANSISTRING$ANSISTRING$ANSISTRING ()
> #7 0x080a0202 in TNODEDATATEST__ASSERTEQUALS (PMESSAGE=0x8350cf0,
> PEXPECTED=POSDELETED, PACTUAL=POSCLEAN, this=0xb7a77a68)
> at NodeData_test.pas:89
> #8 0x080a1cb7 in TNODEDATATEST__TESTNODECOMPOUND_SAVE2 (this=0xb7a77a68)
> at NodeData_test.pas:408
> #9 0x0821abf1 in FPCUNIT_TTESTCASE_$__RUNTEST ()
> #10 0x0821ab38 in FPCUNIT_TTESTCASE_$__RUNBARE ()
> #11 0x0821ba67 in FPCUNIT_PROTECTTEST$TTEST$TTESTRESULT ()
> #12 0x0821bb61 in FPCUNIT_TTESTRESULT_$__RUNPROTECTED$TTEST$TPROTECT ()
> #13 0x0821ba9e in FPCUNIT_TTESTRESULT_$__RUN$TTESTCASE ()
> #14 0xb7a77a68 in ?? ()
> #15 0xb7a7cb68 in ?? ()
> #16 0x0821aaeb in FPCUNIT_TTESTCASE_$__RUN$TTESTRESULT ()
> #17 0x0821b4f1 in FPCUNIT_TTESTSUITE_$__RUNTEST$TTEST$TTESTRESULT ()
> #18 0x083ee660 in _$FPCUNIT$_Ld19 ()
> ---Type <return> to continue, or q <return> to quit---
> #19 0x0821b4cb in FPCUNIT_TTESTSUITE_$__RUN$TTESTRESULT ()
> #20 0x00000007 in ?? ()
> #21 0xb7a7cb68 in ?? ()
> #22 0xb7a77808 in ?? ()
> #23 0x00000000 in ?? ()
> (gdb)
>
> -------------- Finish ----------------
>
> On 06/10/06, Vincent Snijders <vsnijders at quicknet.nl> wrote:
>> Graeme Geldenhuys schreef:
>> > Oh, I forgot to mention. If the ObjectStates match, the test passes
>> > fine, and doesn't give an access violation.
>> >
>> > While creating the new AssertEquals method, I purposefully created a
>> > failure with then gives the access violation, instead to the
>> > comparison message I expected:
>> > "Failing on 1: Expected <posClean> but got <posEmpty>"
>> >
>>
>> Try creating a back trace, maybe that gives some insight.
>>
>> Vincent
>> _______________________________________________
>> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
>> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>>
>
>
> --
> There's no place like 127.0.0.1
>
>
> ------------------------------
>
> Message: 6
> Date: Fri, 06 Oct 2006 12:56:38 +0200
> From: TOUZEAU DAVID <david.touzeau at fr.kaspersky.com>
> Subject: Re: [fpc-pascal] [libtar.pas]:Error: Illegal type conversion:
> "ShortString" to "^Char" without compilator options
> Cc: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <45263666.80007 at fr.kaspersky.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Many thanks Vincent
>
> the {$mode delphi} is a good way...
>
> Vincent Snijders a écrit :
>> TOUZEAU DAVID schreef:
>>> Dear
>>>
>>> I would like to use some units developped from delphi/klyx with
>>> Lazarus IDE On Linux.
>>>
>>> It seems that there is some differences between delphi/freepascal
>>> especially for longstring conversion.
>>>
>>> Many times, i received this compilator error :
>>>
>>> For example by using the LibTar.pas
>>> (http://www.destructor.de/libtar/index.htm)
>>>
>>> libtar.pas(355,8) Error: Illegal type conversion: "ShortString" to
>>> "^Char"
>>>
>>> i fixed this error with {$H+}{$LongString On} tokens
>>>
>>> But is it this good way ??? is there an another solution ??
>>
>> An alternative is to add {$mode delphi} to the source file or compile
>> with -Sd compiler option.
>>
>> Vincent
>>
>
> --
>
> David Touzeau -------------------------- Linux Ubuntu Dapper 6.0.6
> FreePascal-Lazarus,perl,delphi,php icq:160018849
>
>
>
> ------------------------------
>
> Message: 7
> Date: Fri, 6 Oct 2006 06:26:48 -0500
> From: "Jeff Pohlmeyer" <yetanothergeek at gmail.com>
> Subject: [fpc-pascal] RE: Get Local IP using glib (eth0,eth1)
> To: fpc-pascal at lists.freepascal.org
> Cc: david.touzeau at fr.kaspersky.com
> Message-ID:
> <a275e6d00610060426u341aaec9l6aa0770df9e5d4b5 at mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
>> how can i list wich interface loaded without
>> need to parse /etc/networks/...?
>
>
>
> I would parse /proc/net/dev instead....
>
>
> program ifnames;
> var
> s:shortstring;
> f:text;
> p:LongInt;
> begin
> assign(f,'/proc/net/dev');
> reset(f);
> while not eof(f) do begin
> readln(f,s);
> p:=pos(':',s);
> if ( p > 0 ) then begin
> delete(s, p, 255);
> while ( s <> '' ) and (s[1]=#32) do delete(s,1,1);
> writeln(s);
> end;
> end;
> close(f);
> end.
>
>
> ------------------------------
>
> Message: 8
> Date: Fri, 6 Oct 2006 13:30:16 +0200 (CEST)
> From: marcov at stack.nl (Marco van de Voort)
> Subject: Re: [fpc-pascal] RE: Get Local IP using glib (eth0,eth1)
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <20061006113016.C55312288E at snail.stack.nl>
> Content-Type: text/plain; charset="US-ASCII"
>
>> I would parse /proc/net/dev instead....
>
> Better, but still Linux only. For a good solution, a resolver unit that
> accesses libc should be written that is portable (unlike the libc unit)
>
>
>
> ------------------------------
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
> End of fpc-pascal Digest, Vol 26, Issue 16
> ******************************************
>
More information about the fpc-pascal
mailing list