delphi4arab منتديات دلفي للعرب

نسخة كاملة : مشكل في تفعيل fdtable1 داخل ملف dll
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله تعالى و بركاته
اقوم في هذه الايام ببرنامج يختوى على ملفات من نوع 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

وعليكم السلام ورحمة الله وبركاته
حاول إرفقاق مثال حتى يمكن العمل عليه
ملفات مصدرية فقط وليس exe/dll
شكرا لى تعقيبك على الموضوع تم ارفاق مثال يوضح المشكلة