فایل binary

[محمد حسینی]

میشه دستور put و get رو توضیح بدی. من متغیر رو از نوع string معرفی کنم یا byte نمیشه

اگه سورس كمكي مي خواي بگو واست يه نمونشو بنويسم

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

[محمد حسینی]

من هر چقدر با put و get کلنجار رفتم نشد !

[veyskarami]

عزيز تو اين سايت به طور كلي در مورد چيزايي كه مي خواي توضيح داده:
http://computer.parsx.com/viewtopic.php?...22e2c5ec6c

[seyyed]

سلام بذار يه مثال برات بزنم



Dim a as string *60000, z as string , i
Open "c:/1.txt" For Binary As 1
Open "c:/2.txt" For Binary As 2
for i = 1 to Lof(1) step 60000
get 1,i,z
put 2,i,z
next i
close









.

[/code]

[Blossom]

میشه دستور put و get رو توضیح بدی. من متغیر رو از نوع string معرفی کنم یا byte نمیشه

اگه سورس كمكي مي خواي بگو واست يه نمونشو بنويسم

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

سايز متغير هرچي باشه توي هر مرحله از get اون تعداد بايت رو بر ميداره مثلا اگه اينتجر باشه دوبايت و اگه byte باشه يك بايت و اگر استرينگ باشه به تعداد حرف هايي كه توي استرينگ تعريف كردي يعني

کد:

dim st as string *[u][b]n[/b][/u]

كه n تعداد حرف هاي تعريفته
دستور get هم اينطور عمل مي كنه :

کد:

get شماره ي فايل , شروع حركت (از بايت ..) , متغيري براي ذخيره ي اطلاعات كه سايزش مهمه

همين !!!!

[محمد حسینی]

حالا فهمیدم چرا درست نمیشه! من برای فایل txt نمی خوام . باید هر فایلی رو بشه اینطوری کپی کرد.اونی که seyyed گزاشت کپی نکرد

[veyskarami]

اين اديت تروجاني كه ميگي فايلو دوباره كامپال نميكنه
فقط آخرش رو باز مي كنه و مشخصات لازم رو به فايل اضافه ميكنه بعد وقتي تروجان اجرا ميشه آخر خودشو مي خونه و اطلاعات رو بدست مياره

براي انتقال فايل هاي بزرگ با winsock هم با يد اونو تيكه تيكه كني و هر مثلا 100 كيلوبايت رو جدا جدا بفرستي
اگه سورس كمكي مي خواي بگو واست يه نمونشو بنويسم
:wink: موفق باشي :wink:

چرا موقعي كه با upx فشردش می کنی دیگه آخرشو نمی خونه؟
باید چیکارش کنی که کار کنه؟

[rRezar]

نكته انحرافي اينجاست كه بعد از فشرده سازي آخر فايلو اضافه ميكنن :wink:

[rRezar]

حالا فهمیدم چرا درست نمیشه! من برای فایل txt نمی خوام . باید هر فایلی رو بشه اینطوری کپی کرد.اونی که seyyed گزاشت کپی نکرد

نه داداشي
هيچ ربطي به پسوند فايل نداره


يه پروژه باز کن و دوتا تکست باکس و دوتا باتون توش بزار کارت حله :wink:

کد:

Dim s As String * 1
Dim ss As String
Private Sub Command1_Click()
Open Text1 For Binary As #1
Do Until EOF(1)
Get #1, , s
ss = ss & s
Loop
Close #1
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Open Text2 For Binary As #1
Put #1, , ss
Close #1
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Command1.Caption = "INPUT"
Command2.Caption = "OUTPUT"
Text1.Text = "[ADDRSSS E FILE VOROODI RO INJA BENEVIS]"
Text2.Text = "[ADDRSSS E FILE KHOROOJI RO INJA BENEVIS]"
End Sub

[محمد حسینی]

کپی کرد. ولی چرا تو متغیر ss فقط چندتا حرف میاد؟! یعنی اگه من او سه چهار تا حرف رو تو یه فایل exe بزارم همچین برنامه ای درست می شه؟
تو قسمت دوم دستور put هم چیزی نزاشتی. چرا؟

[Iron_Fist]

آقا چيه يه هفتس اين پست بازه
بگو دقيقا چي مي خواهي كه من
در حد توانم برات توضيح بدم