إعـــــــلان

عبد الهادي بهاب · 30-08-2016, 09:48 PM

موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 30-08-2016, 10:09 PM

في اليسبوكس اضف هذا السطر في الاسفل

كود PHP:



Ext = {".jpg",".png",".bmp",".psd",".gif"};
for i,n in pairs(Ext) do
Image.Load("Image1", "AutoPlay\\Images\\"..Input.GetText("Inp_ID")..n.."");
end

**محمد سامر محمد سامر** · 30-08-2016, 10:27 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

في اليسبوكس اضف هذا السطر في الاسفل

كود PHP:


Image.Load("Image1", "AutoPlay\\Images\\"..Input.GetText("Inp_ID")..".png");

جزاك الله خيرا ...أخي....تسلم من كل سووووووء

**فرح صالحي فرح صالحي** · 30-08-2016, 10:29 PM

موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 30-08-2016, 10:31 PM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

جزاك الله خيرا ...أخي....تسلم من كل سووووووء

تم تعديل الكود السابق ليتناسب مع كل الصيغ

**فرح صالحي فرح صالحي** · 30-08-2016, 10:39 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

تم تعديل الكود السابق ليتناسب مع كل الصيغ

الكود المعدل به خطا هذا السطر

كود:

for i,n in pairs(Ext) do

عبد الهادي بهاب · 30-08-2016, 11:03 PM

فيه اشكالية جديدة
هل اذا عدلت الصورة
فانها تغير الصورة في المجلد ؟

**محمد سامر محمد سامر** · 30-08-2016, 11:16 PM

المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة

الكود المعدل به خطا هذا السطر

كود:

for i,n in pairs(ext) do

فعلا الكود فيه مشكله...ماالمشكله أخي ..فرح صالحي

**محمد سامر محمد سامر** · 30-08-2016, 11:19 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

فيه اشكالية جديدة
هل اذا عدلت الصورة
فانها تغير الصورة في المجلد ؟

فعلا أخي إذا عدلت الصورة فإنها لا تتغير

محمد بن أحمد أبو حذيفة · 30-08-2016, 11:53 PM

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

عبد الهادي بهاب · 31-08-2016, 12:31 AM

المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة

الكود المعدل به خطا هذا السطر

كود:

for i,n in pairs(Ext) do

اين ؟؟؟ الخطا

**المـهاجر المـهاجر** · 31-08-2016, 12:55 AM

سؤال فيه ملف مفتوح به صورة واحدة .. كيف سيتم تغيير الصورة ؟؟
لم تم استخدام حلقة تراجع المصفوفة ؟؟

كود PHP:


Ext = {".jpg",".png",".bmp",".psd",".gif"};

for i,n in pairs(Ext) do

Image.Load("Image1", "AutoPlay\\Images\\"..Input.GetText("Inp_ID")..n.."");

end

دائما ما ستستقر على العنصر الأخير (gif) مهما كان عدد عناصر المصفوفة
لم النقطتان و علامتى الاقتباس بعد المتغير n ؟؟

**محمد سامر محمد سامر** · 31-08-2016, 01:18 PM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

سؤال فيه ملف مفتوح به صورة واحدة .. كيف سيتم تغيير الصورة ؟؟
لم تم استخدام حلقة تراجع المصفوفة ؟؟

كود PHP:


ext = {".jpg",".png",".bmp",".psd",".gif"};

for i,n in pairs(ext) do

image.load("image1", "autoplay\\images\\"..input.gettext("inp_id")..n.."");

end

دائما ما ستستقر على العنصر الأخير (gif) مهما كان عدد عناصر المصفوفة
لم النقطتان و علامتى الاقتباس بعد المتغير n ؟؟

كيف سيتم تغيير الصورة؟؟؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 31-08-2016, 03:26 PM

المشاركة الأصلية بواسطة محمد سامر مشاهدة المشاركة

فعلا أخي إذا عدلت الصورة فإنها لا تتغير

في ملفك المرفوع في بداية الموضوع
الكود الموجود في الصورة عند الضغط عليها
استبدله بالاتي

كود PHP:


if Input.GetText("Inp_ID")=="" then
Dialog.Message("تنبيه","ادخل رقم الكشاف");
else
mo = Input.GetText("Inp_ID");  
sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp;*.psd;*.gif|All Files (*.*)|*.*|";    
tImagesFiles = Dialog.FileBrowse(true, "", Shell.GetFolder(SHF_MYDOCUMENTS), sExtension, "", "", false, true);    
if tImagesFiles[1] ~= "CANCEL" then 
path_parts = String.SplitPath(tImagesFiles[1]);
 destination = _SourceFolder.."\\AutoPlay\\Images\\" 
result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
File.Rename(_SourceFolder.."\\AutoPlay\\Images\\".. path_parts.Filename..path_parts.Extension.."", _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension.."");
Image.Load("Image1", _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension)
File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension.."", "C:\\School\\Images\\", true, true, false, true, nil);
end
end

وشوف ربما تنجح في تصحيح هده المرحلة

إعـــــــلان

add Image

add Image

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك