PHP DM Gate v0.9 » Почему "через Тырнет" все работает, а в сети через раз?...

Andrewtitoff © (04.02.08 12:55) [0]

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

<Цитата>
Сергей М. © (04.02.08 13:05) [1]

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

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

http://pda.delphimaster.net/?id=1200643073&n=4

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

<Цитата>
Andrewtitoff © (04.02.08 13:13) [2]

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

<Цитата>
Сергей М. © (04.02.08 13:21) [3]

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

<Цитата>
Andrewtitoff © (04.02.08 13:38) [4]

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

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

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

<Цитата>
Сергей М. © (04.02.08 13:45) [5]

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

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

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

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

uses Math

<Цитата>
Сергей М. © (04.02.08 13:46) [6]

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

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

<Цитата>
Andrewtitoff © (04.02.08 13:47) [7]

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

<Цитата>
Slym © (04.02.08 14:27) [8]

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

?
в грубый руский это переводится как - "онанировать до посинения" и при этом натужно улыбаясь

<Цитата>
Сергей М. © (04.02.08 14:33) [9]

> Slym © (04.02.08 14:27) [8]

Говорил же я тебе про медвежью услугу)

<Цитата>
Slym © (04.02.08 14:42) [10]

код отправки (его бы в поток засунуть):
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;

<Цитата>