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

**admin admin** · 25-09-2015, 11:12 PM

وعليكم السلام ورحمة الله وبركاته

عيدك مبارك أخى المحترف

أنا دخلت فقط أعيد عليك فتقبل الله منا ومنك

ان شاء الله سيتم تحميل الملف والإطلاع

عبد الهادي بهاب · 25-09-2015, 11:16 PM

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

وعليكم السلام ورحمة الله وبركاته

عيدك مبارك أخى المحترف

أنا دخلت فقط أعيد عليك فتقبل الله منا ومنك

ان شاء الله سيتم تحميل الملف والإطلاع

اسعد الله يومكم و اعاد الله عليكم هذا العيد اعواما عديدة و تقبل منا و منكم العبادة و القربات

**ثامر أبو بلقيس ثامر أبو بلقيس** · 01-10-2015, 06:55 PM

يوجد كود عند الضغط على عنصر
Image1
استبدله بـــ:

كود PHP:


mo = Input.GetText("Input1");

myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);    

sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp;*.psd;*.gif|All Files (*.*)|*.*|";    

tImagesFiles = Dialog.FileBrowse(true, "", myfolder, sExtension, "", "", false, true);    

if tImagesFiles[1] ~= "CANCEL" then    

 destination = _SourceFolder.."\\AutoPlay\\Images\\"

result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)

Image.Load("Image1", tImagesFiles[1])

 DestFolder = Shell.GetFolder(SHF_MYDOCUMENTS);

Folder.Create(DestFolder.."\\12");

File.Copy(""..tImagesFiles[1].."", DestFolder.."\\12\\", true, true, false, true, nil);  

Application.Sleep(1000);

File.Rename(DestFolder.."\\12\\"..tImagesFiles[1].."."..sExtension.."", DestFolder.."\\12\\"..mo.."."..sExtension.."");

end

ملاحظة : لن يعطي الكود نتائج لأنه ينقصك ملف dll
وهو FldrActn.dll يتم زراعته في في مجلد
Docs
للأسف لا أملك صلاحية رفع مرفقات على هذا الموقع و مركز الخليج معطل لرفعه لك
موفق

**ربيع ربيع** · 01-10-2015, 07:18 PM

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

الملف

الملفات المرفقة

FldrActn.rar (11.0 كيلوبايت, 44 مشاهدات)

عبد الهادي بهاب · 02-10-2015, 11:14 AM

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

يوجد كود عند الضغط على عنصر
image1
استبدله بـــ:

كود PHP:


mo = input.gettext("input1");
myfolder = shell.getfolder(shf_mydocuments);    
sextension = "all images files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp;*.psd;*.gif|all files (*.*)|*.*|";    
timagesfiles = dialog.filebrowse(true, "", myfolder, sextension, "", "", false, true);    
if timagesfiles[1] ~= "cancel" then    
 destination = _sourcefolder.."\\autoplay\\images\\"
result = dll.callfunction("autoplay\\docs\\fldractn.dll", "copyfolder", "\"" .. Timagesfiles[1].. "\"" .. ",\"" .. Destination .. "\",1,1", dll_return_type_string, dll_call_stdcall)
image.load("image1", timagesfiles[1])
 destfolder = shell.getfolder(shf_mydocuments);
folder.create(destfolder.."\\12");
file.copy(""..timagesfiles[1].."", destfolder.."\\12\\", true, true, false, true, nil);  
application.sleep(1000);
file.rename(destfolder.."\\12\\"..timagesfiles[1].."."..sextension.."", destfolder.."\\12\\"..mo.."."..sextension.."");
end

ملاحظة : لن يعطي الكود نتائج لأنه ينقصك ملف dll
وهو fldractn.dll يتم زراعته في في مجلد
docs
للأسف لا أملك صلاحية رفع مرفقات على هذا الموقع و مركز الخليج معطل لرفعه لك
موفق

السلام عليكم ............ انتظرت الرد طويلا ....... ربي ينوركم استاذ ...... شكرا جزيلا

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

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

الملف

كعادتك حاضر بالرد القوي و السريع و الفعال .......ربي يحفظكم و يسعدكم

عبد الهادي بهاب · 02-10-2015, 08:59 PM

كل شيء تمام

ربي ينوركم

لكن جزئية تغيير الاسم لم تنجح ..........؟؟؟؟؟؟؟؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-10-2015, 01:24 PM

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

لكن جزئية تغيير الاسم لم تنجح ..........؟؟؟؟؟؟؟؟

لان الكود السابق اهتم بالجزئية الأهم
جرب هذا التعديل

كود PHP:


mo = Input.GetText("Input1");  

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]);

y = File.Find(_SourceFolder.."\\AutoPlay\\Images\\", mo..".*", false, false, nil, nil);

if  y== nil then

 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)

Folder.Create(Shell.GetFolder(SHF_MYDOCUMENTS).."\\12");

File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension, Shell.GetFolder(SHF_MYDOCUMENTS).."\\12\\", true, true, false, true, nil);

else  

Dialog.TimedMessage("Please Wait...", "اسم الصورة موجود سابقا", 2000, MB_ICONINFORMATION);

end

end

موفق

عبد الهادي بهاب · 03-10-2015, 04:12 PM

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

لان الكود السابق اهتم بالجزئية الأهم
جرب هذا التعديل

كود PHP:


mo = Input.GetText("Input1");  
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]);
y = File.Find(_SourceFolder.."\\AutoPlay\\Images\\", mo..".*", false, false, nil, nil);
if  y== nil then
 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)
Folder.Create(Shell.GetFolder(SHF_MYDOCUMENTS).."\\12");
File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension, Shell.GetFolder(SHF_MYDOCUMENTS).."\\12\\", true, true, false, true, nil);
else  
Dialog.TimedMessage("Please Wait...", "اسم الصورة موجود سابقا", 2000, MB_ICONINFORMATION);
end
end

موفق

ربي يفرج عليك استاذ فرجا عاجلا غير اجل ............حاولت لاكثر من اسبوع ولم انجح الا في تغييره خارج البرنامج .........و كان الانسان جهولا .......و نحن نطلب المساعدة ......فاسالوا اهل الذكر ان كنتم لا تعلمون ............. فنحن في مسار العلم و السؤال .........و انتم ان شاء الله ...........هل يستوي الذين يعلمون و الذين لا يعلمون ...........فرجاؤنا ان تكونونا من اهل الفضل في الجنة و اي فضل ........طبعا مع خلود و بلقيس و الاهل ..........تحياتي و السلام

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-10-2015, 06:15 PM

بارك الله فيك أخي على الدعاء برجاء خص بلقيس بالدعاء فهي مقبلة على اجراء عملية جراحية دقيقة
خلال هذا الشهر شكرا

و أضف لقائمة بناتي نجيبة و هداية شكرا

عبد الهادي بهاب · 03-10-2015, 08:47 PM

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

بارك الله فيك أخي على الدعاء برجاء خص بلقيس بالدعاء فهي مقبلة على اجراء عملية جراحية دقيقة
خلال هذا الشهر شكرا

و أضف لقائمة بناتي نجيبة و هداية شكرا

تضامني الكبير ...... ربي يشفيها ........ و يكون ما تقدمه من اسباب النجاح حتى قبل العملية و حديث الصخرة و الثلاثة الذين علقوا في الغار تاصيل لما اقول فادعو بما تقدمه معنا و تنضح به و لا سينا في مشاريع التربية و القران ........ دعائنا معكم بالسحر....لا تنسى الحلوى للصغار فالصدقة ترفع البلاء

**عبدوعزيز عبدوعزيز** · 09-01-2016, 12:23 PM

مشكوووووووووووووور

**محمد سامر محمد سامر** · 12-08-2016, 05:27 PM

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

**ياسرهتهت ياسرهتهت** · 13-08-2016, 04:56 AM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**محمد سامر محمد سامر** · 21-08-2016, 12:46 AM

مررت من هنا ...فا ستفدت الكثير ....لثاني مرة مرور
جزاكم الله خيرا

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

كيف تنسخ صورة الى ملف الصور الحاص بالبرنامج

كيف تنسخ صورة الى ملف الصور الحاص بالبرنامج

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك