راهنمایی

[sajadkharestani 25]

سلام

لطفا راهنمایی کنید

رفع پیغام خطا 

با تشکر

[مهدی ایزدی 9,203]

مهندس من چک کردم سورستون هیچ مشکلی نداشت...

هیچ خطایی هم نمیده

[Kazem Forghani 2,927]

سلام ،

دارید یک فایل در مسیری می نویسید که Read-Only شده که قابلیت تغییر نداره می تونید از متن ارور بفهمید.

موفق باشید

[Hamed Sabet Farhadi 707]

میگه فایلی با نام temp.png در اکتیویتی actoutput در ساب btnsave_click پیدا نشد

[sajadkharestani 25]

سلام ،

دارید یک فایل در مسیری می نویسید که Read-Only شده که قابلیت تغییر نداره می تونید از متن ارور بفهمید.

موفق باشید

 

 

میگه فایلی با نام temp.png در اکتیویتی actoutput در ساب btnsave_click پیدا نشد

سلام

فایل temp.png در اکتیویتی actoutput در ساب btnsave_click هست

کد نویسی actoutput

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
Dim pos As Int
Dim p1 As ContentChooser
End Sub

Sub Globals
Private pnlimage As Panel
Dim b1 As Bitmap
Dim pre As PreferenceManager
Dim canvas1 As Canvas
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmoutput")
p1.Initialize("cc")
p1.Show("image/*","انتخاب تصویر")

Select pos
 Case 1
  pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"agahi.jpg"))
 Case 2
  pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"gol.jpg"))
 Case 3
  pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"machine.jpg"))
 Case 4
  pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"sange_ghabr.jpg"))
End Select
End Sub

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
b1.Initialize(Dir,FileName)
overlayImage
ToastMessageShow("تصویر انتخاب شد",False)
End Sub

Sub Activity_Resume

End Sub

Sub overlayImage

Dim rect1 As Rect

canvas1.Initialize(pnlimage)

If pos = 1 Then
     rect1.Initialize(17%x,25%y,41%x,39%y)
	canvas1.DrawBitmap(b1,Null,rect1)
	canvas1.DrawText(pre.GetString("name"),60%x,33%y,Typeface.LoadFromAssets("by.ttf"),35,Colors.Black,"CENTER")
	canvas1.DrawText(pre.GetString("mesra1"),45%x,50%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER")
	canvas1.DrawText(pre.GetString("mesra2"),45%x,60%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER")
	canvas1.DrawText(pre.GetString("extra"),45%x,73%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER")
Else If pos = 2 Then
 rect1.Initialize(17%x,27%y,75%x,69%y)
 canvas1.DrawBitmap(b1,Null,rect1)
Else If pos = 3 Then
 rect1.Initialize(52%x,24%y,74%x,48%y)
 canvas1.DrawBitmap(b1,Null,rect1)
Else If pos = 4 Then
     rect1.Initialize(42%x,11%y,62%x,28%y)
	canvas1.DrawBitmap(b1,Null,rect1)
	canvas1.DrawText(pre.GetString("name1"),50%x,33%y,Typeface.LoadFromAssets("by.ttf"),35,Colors.White,"CENTER")
	canvas1.DrawText(pre.GetString("mesra11"),47%x,40%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER")
	canvas1.DrawText(pre.GetString("mesra22"),47%x,50%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER")
	canvas1.DrawText("تاریخ تولد : " & pre.GetString("birthday"),45%x,63%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER")
	canvas1.DrawText("تاریخ فوت : " & pre.GetString("died"),45%x,69%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER")
End If

pnlimage.Invalidate
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnsave_Click
Dim d1 As FileDialog
d1.FileFilter = ".png"
d1.ShowOnlyFolders = True
d1.ChosenName = "temp.png"
If d1.Show("ذخیره فایل","بله","خیر","",Null) = DialogResponse.POSITIVE And d1.FilePath <> "" Then
	Dim ou As OutputStream
	ou = File.OpenOutput(d1.FilePath,"temp.png",False)
	canvas1.Bitmap.WriteToStream(ou,100,"PNG")
	ou.Close
	ToastMessageShow("فایل ذخیره شد",False)
End If
End Sub

Sub btnshare_Click
Dim ou As OutputStream
ou = File.OpenOutput(File.DirInternal,"temp.png",False)
canvas1.Bitmap.WriteToStream(ou,100,"PNG")
ou.Close
Dim k As MESShareLibrary
k.sharebinary(File.Combine(File.DirInternal,"temp.png"),"","share","","share")
End Sub

Sub btnback_Click
Activity.Finish
End Sub

[Kazem Forghani 2,927]

سلام ،
دوست عزیز شما نام فایل انتخاب شده از FileDialog رو نگرفتید. کد های ساب کلیک روی btnsave رو به این صورت تغییر بدید:

Sub btnsave_Click
	Dim d1 As FileDialog
	d1.FileFilter = ".png"
	d1.ShowOnlyFolders = True
	If d1.Show("ذخیره فایل", "تایید", "انصراف", "", Null) = DialogResponse.POSITIVE And d1.FilePath <> "" Then
		Dim output As OutputStream
		output = File.OpenOutput(d1.FilePath, d1.ChosenName, False)
		canvas1.Bitmap.WriteToStream(output, 100,"PNG")
		output.Close
		ToastMessageShow("فایل با موفقیت ذخیره شد!",False)
	End If
End Sub

موفق باشید

[sajadkharestani 25]

سلام ،

دوست عزیز شما نام فایل انتخاب شده از FileDialog رو نگرفتید. کد های ساب کلیک روی btnsave رو به این صورت تغییر بدید:

Sub btnsave_Click
	Dim d1 As FileDialog
	d1.FileFilter = ".png"
	d1.ShowOnlyFolders = True
	If d1.Show("ذخیره فایل", "تایید", "انصراف", "", Null) = DialogResponse.POSITIVE And d1.FilePath <> "" Then
		Dim output As OutputStream
		output = File.OpenOutput(d1.FilePath, d1.ChosenName, False)
		canvas1.Bitmap.WriteToStream(output, 100,"PNG")
		output.Close
		ToastMessageShow("فایل با موفقیت ذخیره شد!",False)
	End If
End Sub

موفق باشید

ممنون وارد کردم دوباره پیغام خطا رو میده

[مهدی ایزدی 9,203]

فایل شما توی حالت Read Only هستش

روی فایل راست کلیک کنید و به properties برید و read only رو غیرفعال کنید

[Kazem Forghani 2,927]

سلام ،

شما فایل رو با یک نام دیگه مثلا image.png ذخیره کنید. مشکل درست نشد؟!

[sajadkharestani 25]

فایل شما توی حالت Read Only هستش

روی فایل راست کلیک کنید و به properties برید و read only رو غیرفعال کنید

دوباره پیغام خطا رو میده

[Hamed Sabet Farhadi 707]

دوباره پیغام خطا رو میده

اگه امکانش هست سورس رو قرار بدید یا پیام خصوصی کنید

[sajadkharestani 25]

اگه امکانش هست سورس رو قرار بدید یا پیام خصوصی کنید

سلام

پیغام خصوصی شد