comment lire un fichier dbf ?

Bonjour !
Je suis encore débutant en delphi et j'ai réalisé une petite application qui gére un fichier de donnée mais pas sous la forme d'une base de données. et je suis obliger de tricher car je ne sais pas lire les fichiers .dbf. Comment faire pour lire les données d'un fichier dbf ?
je me demande aussi comment depuis un programme delphi lancer une ligne de commande ou lancer depuis une application delphi une autre application.
(plus précisément mon programme delphi cré un fichier batch que je voudrait lancer en fin de processus)
merci d'avance.
herve.jannin@freesbee.fr

salut,
je viens de deposer un source pour acceder au dbf.
Peut-etre que ca te depannera.... ( auteur : phenixauthor )
sinon, pour lancer un prog :
1) tu peux utliser la commande winexec, mais uniquement pour des prog 16 bits ( msdos ,batch.. )

2) Pour lancer autre chose, essaie cette fonction :
le nom doit inclure le chemin .
Ex: 'c:\temp\essai.exe'

function TForm1.Launch_prog(sFile: String): Boolean;
var
cExe: array [0..255] of Char;
sExe: string;
pcFile: PChar;
StartInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
Result:=False;
FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
sExe:= string(cExe);
if UpperCase(ExtractFileName(sExe))<>UpperCase(ExtractFileName(sFile))
then pcFile:=PChar(' "'+sFile+'"')
else pcFile:=nil;
ZeroMemory(@StartInfo, SizeOf(StartInfo));
with StartInfo do
begin
cb:=SizeOf(StartInfo);
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWNORMAL;
end;
if CreateProcess(PChar(sExe), pcFile, nil, nil, True, 0, nil, Pchar(rep), StartInfo, ProcessInfo)
then result:=true;

end;
-------------------------------
Réponse au message :
-------------------------------

> Bonjour !
> Je suis encore débutant en delphi et j'ai réalisé une petite application qui gére un fichier de donnée mais pas sous la forme d'une base de données. et je suis obliger de tricher car je ne sais pas lire les fichiers .dbf. Comment faire pour lire les données d'un fichier dbf ?
> je me demande aussi comment depuis un programme delphi lancer une ligne de commande ou lancer depuis une application delphi une autre application.
> (plus précisément mon programme delphi cré un fichier batch que je voudrait lancer en fin de processus)
> merci d'avance.
> herve.jannin@freesbee.fr
>

merci beaucoup pour cette source. J'ai pour ma part en tant que programmeur débutant qui n'a pas bde sur ma version personnel était obligé de bidouiller avec un convertisseur de fichier dbf à txt puis j'ai exploiter les données txt. désolé c'est pas terrible mais ca marche bien...
J'ai été voir ta source qui me semble très sympa , je vais essayé de l'intégrer dans mon projet. Merci encore pour tout ces conseils ...



-------------------------------
Réponse au message :
-------------------------------

>
>
>
> salut,
> je viens de deposer un source pour acceder au dbf.
> Peut-etre que ca te depannera.... ( auteur : phenixauthor )
> sinon, pour lancer un prog :
> 1) tu peux utliser la commande winexec, mais uniquement pour des prog 16 bits ( msdos ,batch.. )
>
> 2) Pour lancer autre chose, essaie cette fonction :
> le nom doit inclure le chemin .
> Ex: 'c:\temp\essai.exe'
>
> function TForm1.Launch_prog(sFile: String): Boolean;
> var
> cExe: array [0..255] of Char;
> sExe: string;
> pcFile: PChar;
> StartInfo: TStartupInfo;
> ProcessInfo: TProcessInformation;
> begin
> Result:=False;
> FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
> sExe:= string(cExe);
> if UpperCase(ExtractFileName(sExe))<>UpperCase(ExtractFileName(sFile))
> then pcFile:=PChar(' "'+sFile+'"')
> else pcFile:=nil;
> ZeroMemory(@StartInfo, SizeOf(StartInfo));
> with StartInfo do
> begin
> cb:=SizeOf(StartInfo);
> dwFlags:=STARTF_USESHOWWINDOW;
> wShowWindow:=SW_SHOWNORMAL;
> end;
> if CreateProcess(PChar(sExe), pcFile, nil, nil, True, 0, nil, Pchar(rep), StartInfo, ProcessInfo)
> then result:=true;
>
> end;
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour !
> > Je suis encore débutant en delphi et j'ai réalisé une petite application qui gére un fichier de donnée mais pas sous la forme d'une base de données. et je suis obliger de tricher car je ne sais pas lire les fichiers .dbf. Comment faire pour lire les données d'un fichier dbf ?
> > je me demande aussi comment depuis un programme delphi lancer une ligne de commande ou lancer depuis une application delphi une autre application.
> > (plus précisément mon programme delphi cré un fichier batch que je voudrait lancer en fin de processus)
> > merci d'avance.
> > herve.jannin@freesbee.fr
> >
>

sinon pour les progs 32 bits t'as shellexecute...
(cf. sources sur ce site, ou aide delphi)

c'est beaucoup plus simple !

-=� klm �=-


-------------------------------
Réponse au message :
-------------------------------

>
> merci beaucoup pour cette source. J'ai pour ma part en tant que programmeur débutant qui n'a pas bde sur ma version personnel était obligé de bidouiller avec un convertisseur de fichier dbf à txt puis j'ai exploiter les données txt. désolé c'est pas terrible mais ca marche bien...
> J'ai été voir ta source qui me semble très sympa , je vais essayé de l'intégrer dans mon projet. Merci encore pour tout ces conseils ...
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> >
> >
> > salut,
> > je viens de deposer un source pour acceder au dbf.
> > Peut-etre que ca te depannera.... ( auteur : phenixauthor )
> > sinon, pour lancer un prog :
> > 1) tu peux utliser la commande winexec, mais uniquement pour des prog 16 bits ( msdos ,batch.. )
> >
> > 2) Pour lancer autre chose, essaie cette fonction :
> > le nom doit inclure le chemin .
> > Ex: 'c:\temp\essai.exe'
> >
> > function TForm1.Launch_prog(sFile: String): Boolean;
> > var
> > cExe: array [0..255] of Char;
> > sExe: string;
> > pcFile: PChar;
> > StartInfo: TStartupInfo;
> > ProcessInfo: TProcessInformation;
> > begin
> > Result:=False;
> > FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
> > sExe:= string(cExe);
> > if UpperCase(ExtractFileName(sExe))<>UpperCase(ExtractFileName(sFile))
> > then pcFile:=PChar(' "'+sFile+'"')
> > else pcFile:=nil;
> > ZeroMemory(@StartInfo, SizeOf(StartInfo));
> > with StartInfo do
> > begin
> > cb:=SizeOf(StartInfo);
> > dwFlags:=STARTF_USESHOWWINDOW;
> > wShowWindow:=SW_SHOWNORMAL;
> > end;
> > if CreateProcess(PChar(sExe), pcFile, nil, nil, True, 0, nil, Pchar(rep), StartInfo, ProcessInfo)
> > then result:=true;
> >
> > end;
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour !
> > > Je suis encore débutant en delphi et j'ai réalisé une petite application qui gére un fichier de donnée mais pas sous la forme d'une base de données. et je suis obliger de tricher car je ne sais pas lire les fichiers .dbf. Comment faire pour lire les données d'un fichier dbf ?
> > > je me demande aussi comment depuis un programme delphi lancer une ligne de commande ou lancer depuis une application delphi une autre application.
> > > (plus précisément mon programme delphi cré un fichier batch que je voudrait lancer en fin de processus)
> > > merci d'avance.
> > > herve.jannin@freesbee.fr
> > >
> >
>