عدم اتصال به سرور با فایل اپلود شده هاست

[mohammade79 127]

سلام دوستان من یه کد برای اپلود فایل دارم و یه فایل پی اچ پی میام اپلود میکنم فایل رو در سرورم در پوشه اپپس ولی متاسفانه ارتباط برقرار نمیشه برای ارسال فایلم به سرور و میزنه دیس کانکت مشکل چیه ؟

اینم کدمه 

<?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";
    }
?>

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
	Dim cc As ContentChooser
End Sub

Sub Globals
	Dim upload As UploadFilePhp
	Private ProgressBar1 As ProgressBar
	Private Label1 As Label
	Private Button1 As Button
	Dim fn As String
	Dim fn2 As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	upload.Initialize("upload")
	upload.B4A_log= True
	cc.Initialize ("chooser")
'	upload.doFileUpload(ProgressBar1,Label1,File.Combine(fn,fn2),"http://www.appdroids.ir/apps/upload_file.php")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub button1_Click
	cc.Show("image/*", "Choose image")

End Sub
Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
	If Success Then  
		Dir= fn
		FileName = fn2
		upload.doFileUpload(ProgressBar1,Label1,File.Combine(fn,fn2),"http://www.asa.ir/apps/upload_file.php")

	End If
End Sub

 

[mohammade79 127]

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

[نورنما 613]

سلام 

شما اگه توی آپلود مشکل داریدو

اگر دلیل خاصی برای استفاده از کتابخانه UploadFilePhp نداشته باشید بجایش می تونید از Httpjob  استفاده کنید و 

این فایل php رو جهت آپلود استفاده کنید و FileName رو به این فایل پی اچ پی  Post نمایید . 

<?php 
$FileName = $_GET['FileName'];

if (!$FileName) $FileName = "FileName";

if (strstr($FileName,"php")) return;

$PostData = file_get_contents("php://input");


'$File = fopen("../images/" . $FileName,"wb"); // به پوشه ایمیجز که کنار پوشه فایل پی اچ پی ات هست اپلودمیکنه

$File = fopen( $FileName,"wb");

fwrite($File, $PostData); 
fclose($File);

echo "ارسال شد!";
?>

_________________________
'کد داخل بیسیک فور 
Dim uploder As HttpJob
uploder.Initialize("uploader",Me)


'Label1.Text= نلم فایل یعنی فایلی که باید در هاست ایجادشود
'FilePath= ادرس فایلی که ازگوشی انتخاب شده = Directory&"/"&PictureName
uploder.PostFile("http://www.asa.ir/apps/upload_file.php?FileName="&Label1.Text,"",FilePath)

 

[mohammade79 127]

در 38 دقیقه قبل، نورنما گفته است :

سلام 

شما اگه توی آپلود مشکل داریدو

اگر دلیل خاصی برای استفاده از کتابخانه UploadFilePhp نداشته باشید بجایش می تونید از Httpjob  استفاده کنید و 

این فایل php رو جهت آپلود استفاده کنید و FileName رو به این فایل پی اچ پی  Post نمایید . 

<?php 
$FileName = $_GET['FileName'];

if (!$FileName) $FileName = "FileName";

if (strstr($FileName,"php")) return;

$PostData = file_get_contents("php://input");


'$File = fopen("../images/" . $FileName,"wb"); // به پوشه ایمیجز که کنار پوشه فایل پی اچ پی ات هست اپلودمیکنه

$File = fopen( $FileName,"wb");

fwrite($File, $PostData); 
fclose($File);

echo "ارسال شد!";
?>

_________________________
'کد داخل بیسیک فور 
Dim uploder As HttpJob
uploder.Initialize("uploader",Me)


'Label1.Text= نلم فایل یعنی فایلی که باید در هاست ایجادشود
'FilePath= ادرس فایلی که ازگوشی انتخاب شده = Directory&"/"&PictureName
uploder.PostFile("http://www.asa.ir/apps/upload_file.php?FileName="&Label1.Text,"",FilePath)

 

خیلی ممنون ولی فقط یه چیزی مشکل من سر اینه ک با سرور ارتباط برقرار نمیکنه چرا ؟