Lire le contenu d'un fichier UDL et le mettre dans une variable string

Version imprimable

Bonjour,
Je travaille avec un fichier UDL pour établir la connexion entre mon application en DELPHI7 et la BDD SQL. Je veux lire le contenu de mon fichier UDL et le mettre dans une variable liste String. Pour ceux j'utilise la procédure suivante (sachant que je considère mon fichier UDL comme un fichier TEXT) mais ça ne marche malheureusement pas. Avez vous des idées pour m'aider SVP?? :(
P.S: tous se compile sans faute mais le résultat n'est pas du tout le contenu du fichier
Voilà ma procédure:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TForm1.button1click(Sender: TObject); Var F: textFile; Stg:String; begin //Lire le contenu du fichier Memo1.Clear; //Efface le contenu de Memo1 AssignFile(F,ExtractFilePath(Application.ExeName)+'test.udl'); Reset(F); repeat //Repeter... Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable Stg pour savoir ce qui me donne comme sortie until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier CloseFile(F); end;

09/06/2015, 16h02
moondrak

Attend je cherche. ;)
09/06/2015, 16h03
kevin254kl

Bonjour, http://bodman.developpez.com/ESdelphi/ ceci peux t'aider.
09/06/2015, 16h25
moondrak

Une doc sur la fonction UnicodeToUtf8

UnicodeToUtf8,fonction
Convertit une chaîne de caractères Unicode en chaîne UTF-8.

Unité

System

Catégorie

conversions de jeux de caractères

Syntaxe Delphi :

functionUnicodeToUtf8(Dest:PChar;MaxDestBytes:Cardinal;Source:PWideChar;SourceChars:Cardinal):Cardinal;overload;
functionUnicodeToUtf8(Dest:PChar;Source:PWideChar;MaxBytes:Integer):Integer;overload;deprecated;

Syntaxe C++:

externPACKAGE Cardinal__ fastcallUnicodeToUtf8(char*Dest,CardinalMaxDestBytes,wchar_t *Source,CardinalSourceChars);
externPACKAGE int__ fastcallUnicodeToUtf8(char*Dest,wchar_t *Source,intMaxBytes);

Description

Appelez UnicodeToUtf8 pour convertir une chaîne Unicode en une suite àzéro terminal de caractères UTF-8.Utilisez la première syntaxe.La seconde syntaxe est fournie uniquement pour des questions de compatibilitéavec les versions précédentes.

Dest reçoit le tableau àzéro terminal de caractères UTF-8.

MaxDestBytes ou MaxBytes indiquent le nombre d'octets disponibles dans le tampon spécifiépar Dest,y compris le caractère Null de terminaison.

Source est un tableau de caractères Unicode.

SourceChars indique le nombre de caractères de Source.Si SourceChars n'est pas spécifié,Source doit être terminée par le caractère Null.

UnicodeToUtf8 renvoie le nombre d'octets écrits dans Dest.
10/06/2015, 13h31
obila007

Citation:

Envoyé par kevin254kl

Bonjour, http://bodman.developpez.com/ESdelphi/ ceci peux t'aider.

Merci Kevin, j'ai utilisé la 2ème solution avec File of char et ça marche pour l'instant.

Je vous remercie tous pour votre aide :)

Problème 2

la 2ème méthode dont je vous ai parlé tout à l'heure ne marche pas si je la met dans une fonction comme suit:
P.S: je veux récupérer les données du fichier dans une variable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function Read_UDL(Const Fichier : string) : string;
var
    Fic : file of char;
    s :String;
    carac:char;
begin
Result:=' ';
  assignFile(Fic,Fichier);
  try
  reset(Fic);
    while not eof(Fic) do begin
      read(Fic,carac);
      s:=s+carac;
    end;
  finally
    CloseFile(Fic);
  end;
  Result:=s;
end;
 
procedure TForm1.button2hope(Sender: TObject);
var
s :String;
begin
Memo1.Clear;
s:=Read_UDL('fichier.udl');
memo1.lines.text:= memo1.lines.text+s;
end;

11/06/2015, 07h30
SergioMaster
Bonjour,

J'ai tout d'abord eu du mal à comprendre le problème, un fichier UDL pour moi étant une inconnue, je croyais avoir affaires avec un format spécial d'où ma non intervention.
Je ne doute pas du caractère pédagogique de la lecture d'un fichier ligne par ligne voire caractère par caractère
mais s'il s'agit juste d'afficher un contenu de fichier dans un mémo pourquoi ne pas utiliser tout simplement
Code:

1 2 3 //if OpenDialog1.Execute then memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.udl')// (OpenDialog1.FileName);
11/06/2015, 09h32
obila007
Citation:
Envoyé par SergioMaster

Bonjour,

J'ai tout d'abord eu du mal à comprendre le problème, un fichier UDL pour moi étant une inconnue, je croyais avoir affaires avec un format spécial d'où ma non intervention.
Je ne doute pas du caractère pédagogique de la lecture d'un fichier ligne par ligne voire caractère par caractère
mais s'il s'agit juste d'afficher un contenu de fichier dans un mémo pourquoi ne pas utiliser tout simplement

Code:

1 2 3 //if OpenDialog1.Execute then memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.udl')// (OpenDialog1.FileName);
Non il s'agit pas d'afficher le contenu du fichier dans le Memo :calim2:, enfaite j'utilise le Memo juste pour savoir que je peux récupérer les données du fichier. Mon but est de récupérer les données du fichiers UDL qui est en UNICODE pour pouvoir les traiter après dans mon programme.
Merci :)
Et quand je teste avec cette fonction, le programme m'affiche rien aussi sur le Memo. Du coup, celle d'ajouter caractère par caractère marche dans le cas du memo mais pas dans le cas d'une variable string.

Trouvé sur stackoverflow, fonctionne bien en UTF8, UTF16 Little Endian, par contre en UTF16 big Endian, il y a des corrections à faire, pas testé en UTF32:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
function LoadFile(const fn: string): WideString;
var
  f:TFileStream;
  src:AnsiString;
  wx:word;
  i,j:integer;
begin
  if FileExists(fn) then
   begin
    f:=TFileStream.Create(fn,fmOpenRead or fmShareDenyNone);
    try
      f.Read(wx,2);
      if wx=$FEFF then
       begin
        //UTF16
        i:=(f.Size div 2)-1;
        SetLength(Result,i);
        f.Read(Result[1],i*2);
        //detect NULL's
        for j:=1 to i do if Result[j]=#0 then Result[j]:=' ';//?
       end
      else
       begin
        i:=0;
        if wx=$BBEF then f.Read(i,1);
        if (wx=$BBEF) and (i=$BF) then
         begin
          //UTF-8
          i:=f.Size-3;
          SetLength(src,i);
          f.Read(src[1],i);
          //detect NULL's
          for j:=1 to i do if src[j]=#0 then src[j]:=' ';//?
          Result:=UTF8Decode(src);
         end
        else
         begin
          //assume current encoding
          f.Position:=0;
          i:=f.Size;
          SetLength(src,i);
          f.Read(src[1],i);
          //detect NULL's
          for j:=1 to i do if src[j]=#0 then src[j]:=' ';//?
          Result:=src;
         end;
       end;
    finally
      f.Free;
    end;
   end
  else
    Result:='';
end;

11/06/2015, 11h06
obila007

Solution trouvée

Merci mais je viens de trouver la solution, ça suffit de considérer au lieu des char des widechar puis les concaténer dans un widestring et le convertir en string :)
Merci pour votre aide :) contente de faire partie de ce forum