مشكل في تفعيل fdtable1 داخل ملف dll
#1
السلام عليكم و رحمة الله تعالى و بركاته
اقوم في هذه الايام ببرنامج يختوى على ملفات من نوع dll، حيث أواجه صعوبة في تفعيل الخاصية active للمكون fdtable1 داخل الملف dll
حيث تضهر لي هذه الرسالة transtypage de class incorrect
اليكم الاجراء الذي أعمل عليه



PHP كود :
var x:Integer;
    query:TFDQuery;
    table:TFDTable ;
begin
    table
:=TFDTable.Create(nil);
    table.Connection:=connecteur;
    table.TableName:='VTABLE';

    query:=TFDQuery.Create(nil);
    query.Connection:=connecteur;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add('DELETE FROM VTABLE');
    query.ExecSQL;

    table.Active:=True;
    for := 0 to cxcount do
      if cxGrid.DataController.Values[x,0]='True' then
      begin
        table
.Insert;
        table.Fields.Fields[0].Value:=cxGrid.DataController.Values[x,2];
        table.Fields.Fields[1].Value:=cxGrid.DataController.Values[x,3];
        table.Fields.Fields[2].Value:=cxGrid.DataController.Values[x,4];
        table.Fields.Fields[3].Value:=cxGrid.DataController.Values[x,5];
        table.Fields.Fields[4].Value:=cxGrid.DataController.Values[x,6];
        table.Fields.Fields[5].Value:=cxGrid.DataController.Values[x,7];
        table.Fields.Fields[6].Value:=cxGrid.DataController.Values[x,8];
        table.Fields.Fields[7].Value:=cxGrid.DataController.Values[x,11];
        table.Post;
      end;

    if Assigned(querythen FreeAndNil(query);
end
الرد
#2

وعليكم السلام ورحمة الله وبركاته
حاول إرفقاق مثال حتى يمكن العمل عليه
ملفات مصدرية فقط وليس exe/dll
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#3
شكرا لى تعقيبك على الموضوع تم ارفاق مثال يوضح المشكلة
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف