ارسال عکس از نرم افزار اندرویدی به اپلیکشن تحت وب در b4a

[goldsky 11]

با عرض سلام خدمت دوستان خوبم.

هدف ساخت یک نرم افزار اندرویدی و یک نرم افزار تحت وب است که 

نرم افزار اندرویدی مد نظر ما با زبان b4a نوشته شده و عکس را از گوشی گرفته و بهمراه توضیحات متنی ای که کاربر وارد میکند، عکس و متن را به نرم افزار تحت وبی که روی کامپیوتر نصب میشود، منتقل مینماید.

برای دریافت عکس از کاربر در نرم افزار اندرویدی از contentChooser استفاده کرده ایم. حال برای انتقال به کامپیوتر دچار مسئله شده ایم.

اگر بتوان از بستر تلگرام برای انتقال استفاده کرد، خیلی خوب است!!

سپاسگزارم

[میلاد 441]

در 11 ساعت قبل، goldsky گفته است :

با عرض سلام خدمت دوستان خوبم.

هدف ساخت یک نرم افزار اندرویدی و یک نرم افزار تحت وب است که 

نرم افزار اندرویدی مد نظر ما با زبان b4a نوشته شده و عکس را از گوشی گرفته و بهمراه توضیحات متنی ای که کاربر وارد میکند، عکس و متن را به نرم افزار تحت وبی که روی کامپیوتر نصب میشود، منتقل مینماید.

برای دریافت عکس از کاربر در نرم افزار اندرویدی از contentChooser استفاده کرده ایم. حال برای انتقال به کامپیوتر دچار مسئله شده ایم.

اگر بتوان از بستر تلگرام برای انتقال استفاده کرد، خیلی خوب است!!

سپاسگزارم

درود .

یه سرور ومپ رو سیستمت نصب کن 

       Dim Up As UploadFilePhp

       Dim Url_Php_Page As String
	   Dim Path_Phone_Image As String
       Path_Phone_Image = File.DirRootExternal & "/"  'OR  "/sdcard/
       Dim name_image As String



	Url_Php_Page="http://site.ir/uploads.php"
	
	cc4.Initialize("Choose4")

		Up.B4A_log=True
		Up.Initialize("Up")
 

Sub Choose4_Result (Success As Boolean, Dir As String, FileName As String)
	If Success Then
	Dim uriImage As String = GetPathFromContentResultt(FileName)
	  'ImageView4.Bitmap = LoadBitmapSample("",uriImage,ImageView4.Width,ImageView4.Height)
	  lblvideo.Text=""
	  Dim link , finish3 As String
	  link = "http://site.ir/uploads/"
	  Dim x = GetPathFromContentResultt(FileName) As String
      Dim theFileName = x.SubString(x.LastIndexOf("/")+1) As String
	  finish3 = link & theFileName
	  Msgbox(finish3,"address")
	  video=""
	  video=finish3
	  Up.doFileUpload(ProgressBar4,lblvideo,uriImage,Url_Php_Page)
	  ToastMessageShow(" تصویر با موفقیت بارگذاری شد",False)
	  Else
	  ToastMessageShow(" خطا در وارد کردن تصویر",False)
	End If
End Sub

Sub GetPathFromContentResultt(UriString As String) As String
  If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
  Dim Cursor1 As Cursor
  Dim Uri1 As Uri
  Dim Proj() As String = Array As String("_data")
  Dim cr As ContentResolver
  cr.Initialize("")
  If UriString.StartsWith("content://com.android.providers.media.documents") Then
  Dim i As Int = UriString.IndexOf("%3A")
  Dim id As String = UriString.SubString(i + 3)
  Uri1.Parse("content://media/external/videos/media")
  Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
  Else
  Uri1.Parse(UriString)
  Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
  End If
  Cursor1.Position = 0
  Dim res As String
  res = Cursor1.GetString("_data")
  Cursor1.Close
  Return res
End Sub

 

 

php 

یه فولدر به اسم uploads کنار فایل php بساز.

<?php
  
    $file_path = "uploads/";
     
    $file_path = $file_path . basename( $_FILES['uploaded_file']['name']);
    if(move_uploaded_file($_FILES['uploaded_file']['tmp_name'], $file_path)) {
        echo "success";
    } else{
        echo "fail";
    }
 ?>

 

 

lib upload file.zip