ارسال یک فایل wordبه یک کامپیوتر دیگر(خیلی فوری)

[maryam_jamshid]

یک فایل word را چگونه میتوان از یک کامپیوتر ، به کامپیوتر دیگری بفرستیم.

جوابهای موجود به درد من نخورد،ضمنا برنامه ام vb.netاست.
با تشکر

[Andy]

توضیح بیشتری بدهید
آیا دو کامپیوتر باtcp/ip به هم متصل هستند یا از طریق پورت کام یا پورت پرینتر

[Identifier]

کد زیر رو ببینید با استفاده از winsock این کار رو انجام داده

Public Sub SendData(sFile As String, sSaveAs As String, tcpSend As Winsock)

On Error GoTo ErrHandler

    Dim sSend As String, sBuf As String

    Dim ifreefile As Integer

    Dim lRead As Long, lLen As Long, lThisRead As Long, lLastRead As Long

    Dim strData As String

    tcpSend.GetData strData

    ifreefile = FreeFile



    ' Open file for binary access:

    Open sFile For Binary Access Read As #ifreefile

    lLen = LOF(ifreefile)



    ' Loop through the file, loading it up in chunks of 64k:

    Do While lRead < lLen

        lThisRead = 65536

        If lThisRead + lRead > lLen Then

            lThisRead = lLen - lRead

        End If

        If Not lThisRead = lLastRead Then

            sBuf = Space$(lThisRead)

        End If

        Get #ifreefile, , sBuf

        lRead = lRead + lThisRead

        sSend = sSend & sBuf

        sBuf = Space$(0)

    Loop

    lTotal = lLen

    Close ifreefile

    bSendingFile = True

    '// Send the file notification

    tcpSend.SendData "FILE" & sSaveAs

    DoEvents

    '// Send the file

    tcpServer.SendData sSend

    DoEvents

    '// Finished

    tcpSend.SendData "FILEEND"

    bSendingFile = False

        MMControl1.FileName = "FileDone.wav"

        MMControl1.Command = "Open"

        MMControl1.Command = "Play"

    Exit Sub

ErrHandler:

    MsgBox "Err " & Err & " : " & Error

End Sub



Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)

    Dim strData As String

    Dim ifreefile



'    DoEvents

    tcpServer.GetData strData

    If Right$(strData, 7) = "FILEEND" Then

        bFileArriving = False

        lblProgress = "Saving File to " & App.Path & "\" & sFile

        sArriving = sArriving & Left$(strData, Len(strData) - 7)

        ifreefile = FreeFile

        MMControl1.FileName = "File.wav"

        MMControl1.Command = "Open"

        MMControl1.Command = "Play"

            Open sFile For Binary Access Write As #ifreefile

            Put #ifreefile, 1, sArriving

            Close #ifreefile

            ShellExecute 0, vbNullString, App.Path & "\" & sFile,

vbNullString, vbNullString, vbNormalFocus

        lblProgress = "Complete"

    ElseIf Left$(strData, 4) = "FILE" Then

        bFileArriving = True

        sFile = Right$(strData, Len(strData) - 4)

    ElseIf bFileArriving Then

        lblProgress = "Receiving " & bytesTotal & " bytes for " & sFile & "

>from " & tcpServer.RemoteHostIP

        sArriving = sArriving & strData

        MMControl1.FileName = "FileDone.wav"

        MMControl1.Command = "Open"

        MMControl1.Command = "Play"

    End If

End Sub

[maryam_jamshid]

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

[saghari]

با سلام
به نظر من فایل مورد نظرت رو هر چی که میخواد باشه با filestream بصورت باینری در یک متغیر ذخیره کن و اونر ارسال کن. اینطوری حتی میتونی فایلت رو کد هم بکنی (البته اگه لازم باشه)

[اَرژنگ]

منظورتان از :

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

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

[maryam_jamshid]

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

با تشکر

[habedijoo]

دوست عزیز برای این کار شما باید دو تکه برنامه داشته باشید . Client و Server .
این مثال رو توی کامپیوترم داشتم ولی راستش هر چی می گردم پیداش نمیکنم .
ولی لینک مثالش رو برات گذاشتم . فکر کنم مشکلت حله دیگه ؟ . . .

http://www.eggheadcafe.com/forums/Fo...t.asp?ID=22768

[maryam_jamshid]

از کمک هایی که به من کردید ممنونم .
آقای habedijoo از کمکتون ممنونم ولی آیا با این کدها client ها میتونند به هم دیگر فایل ارسال نمایند واینکه علاوه بر این کدها به تنظیمات خاصی نیاز هست یا نه؟
با تشکر

[habedijoo]

دوست عزیز اول Paste, Copy بکن . با برنامه کار کن بعد خودت دست میاد که ساختار کار چجوریه ؟ بعد اگر باز هم مشکلی بود بفرمایید .

[maryam_jamshid]

سلام ،ممنونم از کمکهاتون.
من همین کار روکردم ولی روی بعضی قسمت ها مثل client , filestream ,encoding,readbuffer ,tbytestreadایراد می گیره.
حالا برای رفع این مشکل باید چه کار کنم.
با تشکر

[maryam_jamshid]

من کدها رو کپی وPASTE کردم ولی از بعضی قسمت ها مثل client , filestream ,encoding, seekorigion,readbuffer,streamreciever,غیره ایراد می گیره .
لطفا به من کمک کنید.
با تشکر

[maryam_jamshid]

سلام وممنونم از کمک هاتون.
من چند بار این پیغام رو می فرستم ، ولی انگار فرستاده نمیشه.
من کدها رو کپی و paste کردم ولی error میده از قسمت هایی مثل file stream, seekorigion, tbytesread,read buffer,encoding , غیره .
خواهش میکنم به من کمک کنید.
با تشکر

[pantea_l62]

دوستان عزیز کسی در این مورد نمی خواد راهنمایی کنه؟
از کدهای http://www.eggheadcafe.com/forums/Fo...t.asp?ID=22768
که بصورت سرور کلاینت ساید هستند چطور می شه استفاده کرد همونطور که خانم جمشیدی گفتند خطا داره!!!!!!!!!!!!؟؟؟