Discussion :

[NapsterVB]

salut tout le monde ,
Qui peu m'aidez a convertir ces ligne de code Vb en delphi ?
vraiment je me suis coincé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
56
57
58
59
 
Dim FES As String * 16
Dim FES_TIME As String * 4
Dim Datum As Date
 
Dim t As Integer
Dim szHelp As String
Dim szHelp2 As String
Dim f As Integer
Dim v As Variant
Dim l As Long
f = FreeFile
    Open App.Path + "\Jugl.db" For Binary Access Read As #f
        Do While Not EOF(f)
            Get #f, , FES
            If EOF(f) Then Exit Do
            Get #f, , FES_TIME
 
            szHelp = ""
            For t = 1 To 4
                szHelp = szHelp + Right("00" + Hex(Asc(Mid(FES_TIME, t, 1))), 2)
            Next
            l = "&H" & szHelp
            Datum = DateAdd("s", l, CDate("01.01.1970"))
            szHelp = ""
            Dim c As Integer
            For t = 1 To 16
                c = Asc(Mid(FES, t, 1))
                szHelp = szHelp + Right("00" + Hex(c), 2)
            Next
 List1.AddItem Format(Datum, "hh:mm:ss dd.mm.yyyy") + " -> " + szHelp
 
        Loop
 
    Close #f
et 
Private Sub Command3_Click()
Dim szFilename As String
Dim t As Integer
Dim szHelp As String
Dim f As Integer
Dim Data() As String
 
    szFilename = App.Path + "\v_fes.txt"
    List1.Clear
 
    szHelp = Space(FileLen(szFilename))
 
    f = FreeFile
    Open szFilename For Binary Access Read As #f
        Get #f, , szHelp
    Close #f
    Data = Split(szHelp, vbCrLf)
 
    For t = 0 To UBound(Data)
        If Trim(Data(t)) <> "" Then
            List1.AddItem Trim(Data(t))
        End If
    Next t

et Merci d'avance

[anapurna]

salut

il me manque quelque fonction mais voila en gros ce que cela donnera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
function Right(st : String;i : integer) : String;
begin
  Result := Copy(st,length(st)-i,i);
end;
 
var
 FES : String[16];
 FES_TIME : String[4];
 Datum : TDateTime;
 t : Integer;
 c : Integer;
 szHelp : String;
 szHelp2 : String;
 v : Variant;
 l : Longint;
 szFilename : String;
 Stream : TFileStream;
begin
  szFilename := ExtractFilepath(Application.ExeName) + '\Jugl.db';
  Stream := TFileStream.Create(szFilename,fmOpenRead);
  While Not(Stream.Size < Stream.Position) do
  begin
    Stream.Read(FES,length(FES));
    If (Stream.Size < Stream.Position) Then
      Exit;
    Stream.Read(FES_TIME,length(FES_TIME));
    szHelp := '';
    For t := 1 To 4 do
      szHelp := szHelp + Right('00' + Hex(ord(Copy(FES_TIME,t,1))),2)
    l := '$'+ szHelp
    Datum := DateAdd('s',l,EncodeDate(1970,01,01))
    szHelp := '';
    For t = 1 To 16 do
    begin
      c := ord(copy(FES, t, 1))
      szHelp := szHelp + Right('00'+Hex(c), 2)
    end;
    List1.AddItem(FormatDateTime('hh:mm:ss dd.mm.yyyy',Datum) + ' -> ' + szHelp
  end;
  Stream.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  szFilename : String;
  t : Integer;
  szHelp : String;
  f : Integer;
  Data  : array of String;
begin
  szFilename := ExtractFilepath(Application.ExeName) + '\v_fes.txt';
  List1.Clear
 
//  szHelp := Space(FileLen(szFilename))
  Stream := TFileStream.Create(szFilename,fmOpenRead);
  While Not(Stream.Size < Stream.Position) do
  begin
    Stream.Read(szHelp,Stream.Size);
  end;
  Stream.Free
 
  Data := Split(szHelp, vbCrLf)
 
  For t := 0 To high(Data) do
  begin
    If Trim(Data[t]) <> '' Then
     List1.AddItem(Trim(Data[t]))
  end;
end;

@+ Phil

[neilbgr]

En faisant un uses de StrUtils, la fonction RightStr et beaucoup d'autres inspirées de VB sont disponibles.

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

function RightStr(const AText: string; const ACount: Integer): string;

[NapsterVB]

salut ,
erci pour cette aide ,
j'ai pas compris une chose les lignes qui sont en rouge , en plus sa bug au copilation !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TForm1.Button1Click(Sender: TObject);
Var
  szFilename : String;
  t : Integer;
  szHelp : String;
  f : Integer;
  Data  : array of String;
  Stream : TFileStream;
begin
  szFilename := ExtractFilepath(Application.ExeName) + '\v_fes.txt';
  List1.Clear ;

//  szHelp := Space(FileLen(szFilename))
  Stream := TFileStream.Create(szFilename,fmOpenRead);
  While Not(Stream.Size < Stream.Position) do
  begin
    Stream.Read(szHelp,Stream.Size);
  end;
  Stream.Free ;
 
  Data := Split(szHelp, vbCrLf) ;
 
  For t := 0 To high(Data) do
  begin
    If Trim(Data[t]) <> '' Then
     List1.AddItem(Trim(Data[t]))
  end;
end;

[Fabrice ROUXEL 1]

Cette ligne est en commentaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

//  szHelp := Space(FileLen(szFilename))

Essayes de la remplacer par celle là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FillChar(szHelp, SizeOf(szFilename), Ord(' '));

Je te laisse chercher l'équivalent de split en Delphi.

[NapsterVB]

salut ,
merci beaucoup pour cette aide , mais reste un bug dans ces derniers lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Data := Split(szHelp, vbCrLf) ;
 
  For t := 0 To high(Data) do
  begin
    If Trim(Data[t]) <> '' Then
     List1.AddItem(Trim(Data[t]))
  end;
end;

[anapurna]

salut

Cette ligne est en commentaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

//  szHelp := Space(FileLen(szFilename))

Essayes de la remplacer par celle là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FillChar(szHelp, SizeOf(szFilename), Ord(' '));

Je te laisse chercher l'équivalent de split en Delphi.

heu je ne suis pas sur que ce soit ca la traduction
je vois ca plus dans la definition d'un buffer de taille du fichier et non du nom du fichier mais peut etre me trompai je
c'est pour cette raison que je l'ai mise en commentaire
et remplacé par la lecture direct du fichier entier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Stream.Read(szHelp,Stream.Size);

@+ Phil