Почему "через Тырнет" все работает, а в сети через раз?...

← →
Andrewtitoff © (2008-02-04 12:55) [0]

Удалено модератором
Примечание: спам

← →
Сергей М. © (2008-02-04 13:05) [1]

Тебе не надоело ветки плодить ?

Вот же твой вопрос:

http://delphimaster.net/view/6-1200643073/

Тебе же там дали пример кода !

← →
Andrewtitoff © (2008-02-04 13:13) [2]

Извиняюсь за ветку, неподумал.., просто я немного переделал с учетом вышесказанного, я же немогу просто пример вставить себе в программу, мне же надо по своему, во все вникнуть... =)))

← →
Сергей М. © (2008-02-04 13:21) [3]

Ну и что говорит отладчик ?

← →
Andrewtitoff © (2008-02-04 13:38) [4]

2 Сергей М.
У меня сейчас к сожалению сети под рукой нет, а так все работает, а так там Socket Error -ы были как минимум две разные... =(((

А тот пример который мне дали - там мне тож не все понятно и к тому же он не компилируется... =(((
len:=min(len,Stream.Size-Stream.Position);
что такое min - компилятор непонимает...

← →
Сергей М. © (2008-02-04 13:45) [5]

> там Socket Error -ы были как минимум две разные

И что ? Нам теперь догадываться нужно, какие там у тебя конкретные ошибки возникают ?

Вот как будет детальная инф-цимя, так сразу и приходи)

> что такое min - компилятор непонимает

uses Math

← →
Сергей М. © (2008-02-04 13:46) [6]

> что такое min - компилятор непонимает

Ты по-прежнему упорно не желаешь читать справку ?

← →
Andrewtitoff © (2008-02-04 13:47) [7]

Спасибо!, хорошо как только до сети доберусь скажу номера(думаю завтра)

Andrewtitoff © (04.02.08 12:55)
Это пипец... я зря старался с примером в упомянутой Сергей М. © (04.02.08 13:05) [1] ветке?
Я тибе и протокол придумал, и серверную часть написал... что еще надо? клиентскую часть чтоли?
это что такое:
Repeat Application.ProcessMessages; Until?
в грубый руский это переводится как - "онанировать до посинения" и при этом натужно улыбаясь

код отправки (его бы в поток засунуть):
procedure SendFileClick(Sender: TObject); var FileName:string; Stream:TFileStream; TcpClient: TTcpClient; begin if not PromptForFileName(FileName) then exit; Stream:=TFileStream.Create(FileName,fmOpenRead); try TcpClient:=TTcpClient.Create(nil); try TcpClient.RemoteHost:=""; TcpClient.RemotePort:="111"; TcpClient.Open; TcpClient.Sendln(Format("FileName: %s",[FileName])); TcpClient.Sendln(Format("Size: %d",[Stream.Size])); TcpClient.Sendln(""); TcpClient.SendStream(Stream); finally TcpClient.Free; end; finally Stream.Free; end; end;

Почему "через Тырнет" все работает, а в сети через раз?... Найти похожие ветки