لماذا لا يتم نقل البيانات كما هي

[mohamed49]

شوف اخي المشروع الذي صححته لي مرة تتذكره اكيد هنا
http://www.delphi4arab.net/forum/showthr...p?tid=8425
اردت بدا ان تكون مصفوفة بايتات تكون مصفوفة سترينغ الشال كود والملف معا المشكل انه عند تحويل المصفوفتين الى سترنغ ثم اعادة ارجاعها لا تشتغل تمام جربت كذلك تشغيل السترنغ مباشرة لكن لم انجح عن طريق التعديل في كود التشغيل السابق

var
RunPEProc:procedure(BufferChar;BufferLenWORD); stdcall;
begin

RunPEProc := @teststring[1];
RunPEProc(@exestring[1],length(exestring));
end.

---

كتبت هذا الكود لتحويل المصفوفة الخاصو بالشال كود الى سترنغ لاني اخطات في التحويل في الكود السابق

for c in arrRunPE do
begin
str:=str+ inttostr(ord(c))+',';
end;

str1:=EncodeString(str);

ونفس الكود ايضا لتحويل مصفوفة بايتات الملف

for c in test do
begin
str:=str+ inttostr(ord(c))+',';
end;

str1:=EncodeString(str);

---

يعني بالمختصر المفيد هل يمكن تحويل المصفوفتين الى سترنغ وتشغيلهما عبر هذا الفنكشن

var
RunPEProc:procedure(BufferChar;BufferLenWORD); stdcall;
begin

RunPEProc := @firststring[1];
RunPEProc(@secondstring[1],length(secondstring));
end.