دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
دلفي تعليم

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

ملف dll وارسال واستقبال القيم النصية او المتغييرات النصية

دلفي تعليم :: سؤا ل وجواب بنسبة للاعضاء والزوار

اذهب الى الأسفل

ملف dll وارسال واستقبال القيم النصية او المتغييرات النصية Empty ملف dll وارسال واستقبال القيم النصية او المتغييرات النصية

مُساهمة  saad info 23/11/2017, 8:21 pm

ملف dll وارسال واستقبال القيم النصية او المتغييرات النصية

عند ارسال سلاسل الحرفية الى ملف دي ال ال يحدث خطأ
ويجب تصريح بالوحدة Sharemem في القسم يوزس uses
وفي بداية ملف دي ال ال وفي بداية المشروع
كذلك لتجنب هذا الخطأ

واليكم هذا المثال

المشروع
الكود:

program Project1;

uses
  Sharemem, // يجب تصريح بهذه الوحدة هنا
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

الوحدة المشروع

الكود:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private public end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TestDll(var strA: string; strB: string); stdcall;
external 'dllDLL.dll' name 'TestDllA';

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
 TestDll(s,edit1.Text);
 Label2.Caption := s;
end;

end.

///////////////////////////

ملف دي ال ال

الكود:

library dllDLL;

uses
  Sharemem, // يجب تصريح بهذه الوحدة هنا
  SysUtils,
  Classes;

{$R *.res}

procedure TestDll(var strA: string; strB: string); stdcall;
begin
  strA := 'Nom : '+strB;
end;
exports TestDll name 'TestDllA';

begin
end.

saad info
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

دلفي تعليم :: سؤا ل وجواب بنسبة للاعضاء والزوار

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى