ارسال چند درخواست httpjob

[Siaic 88]

سلام

برای یک فروشگاه اینترنتی نیاز دارم یسری اطلاعات از هاست بگیرم

مثلا عکس های اسلایدر بالا و عکس و تیتر و.. اسکرول های افقی زیر اسلایدر

مثلا یه اسکرول برای تازه ها، یکی برای پوشاک، یکی برای ساعت و... مثلا

حالا هر کدوم اطلاعاتشون تو یه تیبیل جدا

سوالم این که درخواست های httpjob هارو پش هم ارسال کنم اشکال داذه؟ مثلا ۵ درخواست پشت هم

یا اگر راه اصولی داره به من بگید تشکر

[Siaic 88]

اینو میده ...
 

org.json.JSONException: Value [{"id":"1","titr":"fff","matn":"www"}] of type org.json.JSONArray cannot be converted to JSONObject

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

[محمدرضا شاهپیری 5,583]

متنی که گرفتین آرایه هست البته در کل یه آبجکته حالا چرا همچین خطایی داده به خاطر ضعف کتابخونه جیسون هست.

کتابخونه جیسون بیسیک ضعفهای زیادی داره عزیز. حتما از کتابخونه persianjson استفاده کنید

[Siaic 88]

درسته

میشه یه توضیح کلی بدین فرق این کتابخونه با httpjob چیه؟

میشه چندین درخواست پشت هم داد به سرور مثلا 5 درخواست؟

و چرا با httpjob معمولی نمیشه درخواست پشت هم داد و بهینه نیست و این کتابخونه بهینه هست؟
مرسی

[محمدرضا شاهپیری 5,583]

در 48 دقیقه قبل، Siaic گفته است :

درسته

میشه یه توضیح کلی بدین فرق این کتابخونه با httpjob چیه؟ توی کتابخونه توضیح داده شده. در هر حال کتابخونه httpjob برای نیازهای مقدماتی خوبه. در ضمن از کتابخونه org.apache.http استفاده شده که دیگه منسوخ شده.

میشه چندین درخواست پشت هم داد به سرور مثلا 5 درخواست؟ بله عزیز شما هر تعداد درخواست میتونید بفرستید و با تگ اونها رو مدیریت کنید.

 

[Amir - B 185]

سلام 

اگر سوال رو درست متوجه شده باشم با httpjob میشه چند درخواست پشت سر هم انجام داد .

مثلا تو Activity_Create یک job تعریف کنید به اسم job1 و یک درخواست باهاش انجام بدید . بعد از کد زیر استفاده کنید.

 

Sub JobDone(job As HttpJob)
	
	If job.Success=True Then
		
		
		If job.JobName="job1" Then
			Dim job2 As HttpJob
			'یک درخواست با job2
				
				
		End If
			
			
			
		If job.JobName="job2" Then
				
			Dim job3 As HttpJob
			'یک درخواست با job3
		
		
		End If
		
		
		
		If job.JobName="job3" Then
				
			Dim job4 As HttpJob
			'یک درخواست با job4
			' و به همین ترتیب
				
				
		End If
		
		
	End If
		
End Sub

 

[محمدرضا شاهپیری 5,583]

عزیز ساختن فروشگاه با httpjob کار درستی نیست به نظرم. از کتابخونه های قویتر که توی سایت موجوده استفاده کنید که بتونید درخواسهای همزمان بفرستید.

[Siaic 88]

در 9 ساعت قبل، محمدرضا شاهپیری گفته است :

عزیز ساختن فروشگاه با httpjob کار درستی نیست به نظرم. از کتابخونه های قویتر که توی سایت موجوده استفاده کنید که بتونید درخواسهای همزمان بفرستید.

سلام میشه مسیر رو بهم نشون بدید،  (چه کتابخونه ای، نمونه سورس، و...)

میخوام یه فروشگاه قوی و پر سرعت بسازم

مرسی

[محمدرضا شاهپیری 5,583]

 

[Siaic 88]

در 12 ساعت قبل، محمدرضا شاهپیری گفته است :

 

کتابخونه رو خریدم ولی فقط آپلود آموزش داده شد ولی من گرفتن اطلاعات از دیتابیس میخوام میشه یه نمونه سورس بدید؟
من از php زیر استفاده میکنم:

 

<?php
$id= $_POST['id'];
$conn = new mysqli("localhost", "******", "******", "******");
$conn->set_charset("utf8");
if ($conn->connect_error) {
	echo "خطای پایگاه داده";
	die("");
	}
$sql="SELECT * FROM tbl2 WHERE id>".$id." LIMIT 10";
$result = $conn->query($sql);
$myOut = array();
while($row = $result->fetch_assoc()) 
    $myOut[] = $row;
echo json_encode($myOut);	
?>

 

[محمدرضا شاهپیری 5,583]

استفاده از کتابخونه خیلی ساده اس عزیز.

شما الان یه پارامتر پست دارین و خروجیتون هم جیسون هست. پس به شکل زیر استفاده کنید.

 

Dim prfn As PersianFastNetwork
prfn.initialize("prfn")
Dim post As PostRequest
post=prfn.BuildPostQuery("url","tag")
post.addParametrs("id","yourid")
post.executeRequesAsJSONObjectt

sub prfn_onPostJSONObjectOkListener(JsonString as String , Tag as String)

Dim prj As PersianJSONOBject
prj.initialaizJsonString(JsonString)
' و ادامه که دیگه کار با جیسون هست

end sub

sub prfn_onPostJSONObjectErrorListener(Error as String , Tag as String)
log(Error)
end sub

کتابخانه persianjson هم تو لینک زیر هست.

 

[Siaic 88]

ارور زیر برای چیه؟
 

B4A version: 7.01
Parsing code.    (0.00s)
Compiling code.    (0.06s)
	
ObfuscatorMap.txt file created in Objects folder.
Compiling layouts code.    (0.00s)
Organizing libraries.    (0.02s)
Generating R file.    (0.30s)
Compiling generated Java code.    Error
Cannot find: C:\Program Files\Anywhere Software\Basic4android\libraries\okio.jar

 

[محمدرضا شاهپیری 5,583]

عزیز تو این تاپیک من و شماییم فقط. نقل قول نکنید لطفا. 

شما وقتی کتابخونه رو دانلود کردید به همراهش سه تا فایل جار هست اونا رو باید تو پوشه کتابخونه های بیسیک که تو درایو C هست کپی کنید. توضیح هم دادم که.

[Siaic 88]

۲فایل بود که مال کتابخونه به اسم خود کتابخونه بود... 

۳فایل نبود

[محمدرضا شاهپیری 5,583]

عزیزم. تو مدیریت خرید که برین یه صفحه مثه صفحه زیر هست.

نسخه 1 رو دانلود کنید یه فایل زیپه که دوتا پوشه توشه. یکی سورسه و یکی یه پوشه به نام nededlib اونو باز کنید و سه تا فایل به شکل زیر توشه. طبق چیزی که تو راهنمایی نوشتم عمل کنید.

 

[Siaic 88]

سلام کد من کجاش مشکل داره؟

Sub Activity_Create(FirstTime As Boolean)
	Dim prfn As PersianFastNetwork
	prfn.initialize("prfn")
	Dim post As PostRequest
	post=prfn.BuildPostQuery("http://siavashr.ir/show2.php","id=" & offset)
	post.addParametrs("id","id=" & offset)
	post.executeRequesAsJSONObjectt

End Sub

Sub prfn_onPostJSONObjectOkListener(JsonString As String , Tag As String)
	Dim parser As JSONParser
	parser.Initialize(JsonString)
	
	Dim LstData As List
	LstData.Initialize
	LstData = parser.NextArray
			
	For Each MapData As Map In LstData
						
		ToastMessageShow( MapData.Get("id"),False)
		ToastMessageShow( MapData.Get("titr"),False)
		ToastMessageShow( MapData.Get("matn"),False)
						
	Next
	
End Sub

 

[محمدرضا شاهپیری 5,583]

عزیز بدون لاگ که نمیشه گفت کدتون اشتباهه یا نه.

اگه خطایی چیزی میده لاگ رو پیوست کنید...