| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Andrewtitoff ©   (2008-02-04 12:55:00) 

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

---

Slym   (2008-02-04 14:42:00) [1]

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

---

Сергей М.   (2008-02-04 14:33:00) [2]

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


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

---

Slym   (2008-02-04 14:27:00) [3]

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

---

Andrewtitoff   (2008-02-04 13:47:00) [4]

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

---

Сергей М.   (2008-02-04 13:46:00) [5]

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


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

---

Сергей М.   (2008-02-04 13:45:00) [6]

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


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

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


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


uses Math

---

Andrewtitoff   (2008-02-04 13:38:00) [7]

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

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

---

Сергей М.   (2008-02-04 13:21:00) [8]

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

---

Andrewtitoff   (2008-02-04 13:13:00) [9]

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

---

Сергей М.   (2008-02-04 13:05:00) [10]

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

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

http://delphimaster.ru/cgi-bin/forum.pl?id=1200643073&n=4

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

---

Наверх