tcp

[pe_pe]

mam obraz okolo 600 KB, czy przez tcp da się to przesłać bez zamulania?

[Symeg]

Przesyłaj w mniejszych pakietach (np. po 20 KB) i na końcu łącz to w całość.

[pe_pe]

a mógłbyś mi pomóc bo kompletnie nie wiem jak to zrobić.

mam to...i to mi wysyła txt.

TCPStartup()

$sock = TCPConnect($server,50911)
$data = FileRead($FileSent,FileGetSize($FileSent))
SplashTextOn("Send","Sending ...",200,40)
TCPSend($sock,FileGetSize($FileSent) & "," & $data)

SplashOff()

[Phoenix_PL]

ten kod jest zupełnie kijowy.

Przecież pisałem ci na GG: Otwierasz plik przez FileOpen, łączysz z klientem, i robisz pętlę w której czytasz 1024 znaki z pliku, wysyłasz je i z bani.

[pe_pe]

jest to serwer odbierajacy plik...chce do niego zrobic progress bara. tworzenie i to wszystko jest juz wstawione i sadze ze jest ok, ale mam problem z czytaniem wielkosci pliku $size.

ma wygladac to tak:

 

Local $recv

Do

$size = TCPRecv($iSocket, 4096)

Until $recv = ""

 

ale nie wiem gdzie wstawic.

 

 

While 1

If $iSocket = -1 Then
 $iRet = TCPAccept($iMainSocket)
 If Not @error Then $iSocket = $iRet
 Else
 ProgressOn("Pobieranie", "Odbieranie danych", "0%")
 Do
 $buffer &= TCPRecv($iSocket,4096)
 $procent = Ceiling(($size/StringLen($buffer))*100)
ProgressSet($procent, $procent&"%")
 If $bytes = -1 And StringInStr($buffer,",") Then
  $bytes = StringLeft($buffer,StringInStr($buffer,",")-1)
  $buffer = StringTrimLeft($buffer,StringInStr($buffer,","))
 Else
  SplashTextOn("Receive","Receiving ...",200,40)
  If StringLen($buffer) = $bytes Then
   SplashOff()
   $FileReceived = FileSaveDialog("File save",@desktopdir,"txt (*.txt)")
   ExitLoop
  EndIf
  EndIf
  Until StringLen($buffer) = $size
EndIf
WEnd

 

 

prosze o szybka pomoc

[Symeg]

Rzeczy typu obrazy powinno się przesyłać binarnie (tzn. w bajtach, a nie w znakach).

Co do progress bara to w pierwszym pakiecie wyślij całkowity rozmiar pliku i sobie później przeliczasz ile odebrałeś na procenty.