clientdataset et memorystream

Version imprimable

j'ai cette procedure pour test de transfer des donnée entre deux clientdataset, via memorystream
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure TForm4.Button1Click(Sender: TObject); var strm:TMemoryStream; begin ClientDataSet1.DisableControls; strm:=TMemoryStream.Create; try LocalCD.SaveToStream(strm); //LocalCD un autre TCLientDataset showmessage(inttostr(strm.Size)); sleep(1); ClientDataSet1.LoadFromStream(strm); ClientDataSet1.Active:=true; ClientDataSet1.EnableControls; finally strm.Free; end; end;
et j'ai eu ce message d'erreur:

Citation:

notification d'une exception du débogeur:
le projet1.exe a provoqué une clsse d'exception EDatabaseerror avec le message 'Clientdataset1: fournisseur de données ou paquet de données manquant', Processus stoppé,

svp aidé moi, merci

j'ai modifier le code, la pas d'erreur , mais clientdataset1 reste vide;voila le code:

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
procedure TForm4.Button1Click(Sender: TObject);
var
     strm:TMemoryStream;
     i:integer;
begin
     ClientDataSet1.DisableControls;
     strm:=TMemoryStream.Create;
     try
        LocalCD.SaveToStream(strm);
        showmessage(inttostr(strm.Size));//=2800554
        sleep(1);
        ClientDataSet1.FieldDefs.Clear;
        for i:=0 to LocalCD.FieldCount-1 do
              with ClientDataSet1 do
              begin
                with FieldDefs.AddFieldDef do
                begin
                  DataType := LocalCD.Fields[i].DataType;
                  Name := LocalCD.Fields[i].FieldName;
                  if LocalCD.Fields[i].DataType=ftString then
                  Size:=LocalCD.Fields[i].DataSize;
                end;
              end;
        ClientDataSet1.CreateDataSet;
        ShowMessage('Table crée');
        ClientDataSet1.Active:=true;
        ClientDataSet1.LoadFromStream(strm);
        ClientDataSet1.EnableControls;
        showmessage(inttostr(ClientDataSet1.RecordCount));//=0
     finally
       strm.Free;
     end;
end;

j'ai réussi avec:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm4.Button1Click(Sender: TObject);
var
     strm:TMemoryStream;
     i:integer;
     s:string;
begin
     ClientDataSet1.DisableControls;
     s:='d:\jj.jam';
     strm:=TMemoryStream.Create;
     try
        LocalCD.SaveToFile(s);
        strm.LoadFromFile(s);
        ClientDataSet1.LoadFromStream(strm);
        ClientDataSet1.EnableControls;
        showmessage(inttostr(ClientDataSet1.RecordCount));
     finally
       strm.Free;
     end;
end;

mais je comrend pas pouqoi??
je doit passé par un fichier, et j'aime bien touvé une autre solution, je creuse toujour le sujet

09/10/2006, 18h07
edam

alors aucune idée??
mon vrai probléme est de transféré le contenut d'un clientdataset d'un post a un autre en utilisant TCP\IP
alors, c'est la réception qui marche pas en utlisant;
clientdatset.loadfromstream
09/10/2006, 18h28
Graffito

Bonjour,

Il est possible que le savetotream d'un dataset ne sauvegarde que les caractèristiques de l'accès au dataset et non les enreistrements du SGBD.

Peut-être passer par un save en XML.
09/10/2006, 18h29
Graffito

Bonjour,

Il est possible que le savetotream d'un dataset ne sauvegarde que les caractéristiques de l'accès au dataset et non les enregistrements du SGBD.

Peut-être passer par un save en XML.

non

Citation:

Envoyé par edam

j'ai réussi avec:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm4.Button1Click(Sender: TObject);
var
     strm:TMemoryStream;
     i:integer;
     s:string;
begin
     ClientDataSet1.DisableControls;
     s:='d:\jj.jam';
     strm:=TMemoryStream.Create;
     try
        LocalCD.SaveToFile(s);
        strm.LoadFromFile(s);
        ClientDataSet1.LoadFromStream(strm);
        ClientDataSet1.EnableControls;
        showmessage(inttostr(ClientDataSet1.RecordCount));
     finally
       strm.Free;
     end;
end;

mais c'est sur le meme poste
peut etre que lenvoit est faux:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
     
type
  TypeResep=record
    Typ,Tail:integer;
  end;
  TPMYSocket=^TMYSocket;
  TMYSocket=record
    Entet:TypeResep;
    Resu:Integer;
    Socket:TCustomWinSocket;
    Strm:TMemoryStream;
    Delait:DWORD;
  end;
Function  TForm4.EnvoitArticle;
var
     sock:TPMYSocket;
     strm:TMemoryStream;
begin
     strm:=TMemoryStream.Create;
     try
       LocalCD.SaveToStream(strm);
       sock.Entet.Typ:=1;
       sock.Entet.Tail:=strm.size;
       sock.Socket.SendBuf(t,sizof(sock.Entet));
       Sleep(1);
       sock.Socket.SendStream(strm);
     finally
       strm.Free;
     end;
end;
//*******************
//***** cote reception
//*********
procedure TForm4.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
     buf:TBuff;  //TBuff=PIntegerArray;
     i,j,p:Integer;
     t:SYSTEMTIME;
     s,m:string;
begin

     if Local.Entet.Typ<0 then
       begin
         Socket.ReceiveBuf(local.Entet,sizeof(local.Entet));
             Local.Strm:=TMemoryStream.Create;
         exit;
       end;
     if local.Entet.Typ=0 then
       begin
         ShowMessage('OK');
         Initialise;
         exit;
       end;
     if local.Entet.Typ=20 then
       begin
         socket.ReceiveBuf(t,sizeof(t));
         inc(t.wHour);
         SetLocalTime(t);
         Initialise;
         exit;
       end;
     local.Delait:=GetTickCount;
     i:=socket.ReceiveLength;
     if i>0 then
       begin
     if i>0 then
       begin
         j:=Socket.ReceiveBuf(buf^,i);
         Local.Strm.Read(buf^,j);
         FreeMem(buf,i);
         local.resu:=local.resu+j;
       end;
     if local.Entet.Tail=local.Resu then
       begin
         ClientDataSet1.LoadFromStream(local.Strm);         ClientDataSet1.EnableControls;
         Initialise;
       end;
end;

bien sur il y a TNMStrm, mais meme avec ce composant, j'ai pas réussit
et je sais pas encore ou est le probléme, dans l'envoit ou la réception

10/10/2006, 00h59
edam

je suis fatigué à creusé, alors j'ai adopté les entient méthode qui marche toujour;
1-j'enregistre clientdataset sur serveur dasn un fichier
2-j'envoit le fichier au client
3-réception des données et les enregistré dans un fichier
4-lecture du fichier par clientdataset du client
bah bien sur c'est un lengt, mais comme j'ai pas trouvé mieux et j'ai pas du temp, alors,,,, merci :mouarf: