Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

ce code marche presque
mais les foncrion préfixé par // PCM--,

B.ReadAnsiString
et
L := B.ReadDWord;

ne sont pas compatibles en D7
comment ou par quoi les remplacer ?

merci

procedure TFHistoire.btnImportClick(Sender: TObject);
var
QueryWrite: TIBQuery;
dossier, dico, chaine: string;
L: Integer;
B: TFileStream;
Tampon: TMemoryStream;
aFHistoireImport: TFHistoireImport;
bImport: boolean;
sFichier: string;
iNumDossier: integer;
begin

aFHistoireImport := TFHistoireImport.create(self);
try
aFHistoireImport.ShowModal;
bImport := aFHistoireImport.bImport;
iNumDossier := aFHistoireImport.iNumDossier;
sFichier := aFHistoireImport.sFichier;
finally
FreeAndNil(aFHistoireImport);
end;

if bImport then
begin
if not FileExists(sFichier) then
begin
Showmessage('Le fichier : ' + sFichier + ' est introuvable...');
exit;
end;

B := TFileStream.Create('Histoire.dica', fmOpenRead);
B.Seek(0, soFromBeginning);
dossier := IntTostr(iNumDossier);
QueryWrite := TIBQuery.Create(Application);
QueryWrite.database := dm.ibd_BASE;

if dossier = '0' then
begin
// PCM -- dico := B.ReadAnsiString;
QueryWrite.SQL.Clear;
QueryWrite.SQL.Add('delete from ref_histoire'
+ ' where hi_dossier = 0 and hi_dicorigine=''' + dico + '''');
QueryWrite.ExecSQL;
end;

QueryWrite.SQL.Clear;
QueryWrite.SQL.Add('insert into ref_histoire ('
+ ' hi_dossier'
+ ',hi_dicorigine'
+ ',hi_date_texte'
+ ',hi_cat'
+ ',hi_titre'
+ ',hi_texte'
+ ',hi_image'
+ ')'
+ ' values('
+ dossier
+ ',:hi_dicorigine'
+ ',:hi_date_texte'
+ ',:hi_cat'
+ ',:hi_titre'
+ ',:hi_texte'
+ ',:hi_image'
+ ')');

Tampon := TMemoryStream.Create;
B.Seek(0, soFromBeginning);

while B.Position < B.Size do
begin
with QueryWrite do
begin
// PCM -- chaine := B.ReadAnsiString;
ParamByName('hi_dicorigine').AsString := chaine;

// PCM -- chaine := B.ReadAnsiString;
ParamByName('hi_date_texte').AsString := chaine;

// PCM -- L := B.ReadDWord;
ParamByName('hi_cat').Asinteger := L;

// PCM -- chaine := B.ReadAnsiString;
ParamByName('hi_titre').AsString := chaine;

// PCM -- L := B.ReadDWord;

if L = 0 then
ParamByName('hi_texte').value := Null
else
begin
tampon.Clear;
tampon.CopyFrom(B, L);
tampon.Seek(0, soFromBeginning);
ParamByName('hi_texte').LoadFromStream(tampon, ftMemo);
end;

// PCM -- L := B.ReadDWord;

if L = 0 then
ParamByName('hi_image').value := Null
else
begin
tampon.Clear;
tampon.CopyFrom(B, L);
tampon.Seek(0, soFromBeginning);
ParamByName('hi_image').LoadFromStream(tampon, ftBlob);
end;
ExecSQL;
end;
end;

FreeAndNil(B);
tampon.Clear;
FreeAndNil(tampon);
QueryWrite.Close;
FreeAndNil(QueryWrite);

showMessage('Le fichier : ' + sFichier + ' a été importé avec success...');
doOpenQueries;
end;
end;

[sjrd]

Pour ReadDWord tu dois utiliser la procédure ReadBuffer :

Code :

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

1
2
B.ReadBuffer(L, 4);
// 4 car un DWord fait 4 octets

Pour des chaînes de caractères, il faudrait savoir dans quel format ReadAnsiString lit les données. S'il s'agit du format "longuer sur 4 octets + contenu de la chaîne", voici des routines à moi :

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
{*
  Lit une chaîne de caractères depuis un flux
  Cette chaîne doit avoir été écrite avec WriteStrToStream.
  @param Stream   Flux depuis lequel lire la chaîne
  @return La chaîne lue
*}
function ReadStrFromStream(Stream : TStream) : string;
var Len : integer;
begin
  Stream.ReadBuffer(Len, 4);
  SetLength(Result, Len);
  Stream.ReadBuffer(Result[1], Len);
end;
 
{*
  Écrit une chaîne de caractères dans un flux
  Cette chaine pourra être relue avec ReadStrFromStream.
  @param Stream   Flux dans lequel enregistrer la chaîne
  @param Str      Chaîne de caractères à écrire
*}
procedure WriteStrToStream(Stream : TStream; const Str : string);
var Len : integer;
begin
  Len := Length(Str);
  Stream.WriteBuffer(Len, 4);
  Stream.WriteBuffer(Str[1], Len);
end;

[Cazaux-Moutou-Philippe]

Merci bcp

ca marche