[Snake22]

здравствуйте.
незнаю как именно описать какой именно сервер хочу написать,попробую на примере существующего.
есть такая програмка,её запускаешь, указываешь какие папки "расшарить" и файлы из этих папок можно будет скачать на другом компе введя в браузере ИП адрес компа с серовером.прога по этому адресу создает простенькую html страничку с файлами. выглядит примерно так
.
проблема у мя заключается в том что при попытке чтото найти в гугле про сервер выдаётся создание сервера с базами даннных и тд...
может хотя бы где прочитать кто поможет?

[M.A.D.M.A.N.]

На вкладке internet компонент "httpserver". там все прозрачно должно быть для понимания.

[Bargest]

Если нужно научиться:
ИМХО, для таких вещей специально сделали протокол FTP... И лучше бы прочитать про него. А там можно найти исходники простейшего FTP сервера и разобраться.
Если нужно иметь программу:
Ну это просто. Серверов разных сотни.

[Snake22]

Сообщение от Bargest

Если нужно научиться:
ИМХО, для таких вещей специально сделали протокол FTP... И лучше бы прочитать про него. А там можно найти исходники простейшего FTP сервера и разобраться.
Если нужно иметь программу:
Ну это просто. Серверов разных сотни.

разве это ftp то что я показал?
ща поизучаю httpserver как сказал MADMAN, спасибо

[nixel]

Сообщение от Snake22

разве это ftp то что я показал?

ну... вообще да. ftp-сервера так и работают.

[Karsh]

Сообщение от nixel

ну... вообще да. ftp-сервера так и работают.

Ну... Вообще-то нет. Вот, например, у Http File Server файлы передаются по протоколу http, а это то, что, как мне кажется, и нужно автору темы.

[nixel]

Сообщение от Karsh

Ну... Вообще-то нет. Вот, например, у Http File Server файлы передаются по протоколу http, а это то, что, как мне кажется, и нужно автору темы.

можно конечно это и через http сделать, никто не запрещает. но стандартом де факто является все же ftp. впрочем, мы немного отклонились от темы.
советы по реализации даны, теперь дело за автором =)

[M.A.D.M.A.N.]

Во накакали в теме то, а все не по делу.
http для реализации веб морды, ссылочки там и прочая ерунда, ftp для передачи файла. По http заходим на нужный комп, видим нечто подобное картинке в 1 сообщении, жмем по ссылке, закачиваем по ftp.

[Snake22]

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

Код:

IdHTTPServer1.Active:=false;
IdHTTPServer1.DefaultPort:=81;
IdHTTPServer1.Active:=true;

также на одном сайте нашел что надо через Bindings,попробовал
IdHTTPServer1.Bindings.DefaultPort:=81;
тож не помогло

[M.A.D.M.A.N.]

До запуска нитки надо порт устанавливать, да и http работает по 80 порту.

[Snake22]

уже разобрался. циклом меняю для каждого соединения
for i:=0 to IdHTTPServer1.Bindings.Count-1 do
IdHTTPServer1.Bindings.Items[i].Port:=PortN.Value;
и еще на всякий IdHTTPServer1.Bindings.DefaultPort:=PortN.Value;

[Snake22]

А как проверить занят ли выбранный порт или нет?
гугл не помогает(((
в гугле нашел,если при смене порта вывалится ошибка значит занят. специально проверил,нифига нет. порт спокойно устанавливается.но если он занят то прога моя не перехватывает сообщения с порта.
и при этом если порт знаят,и запустить мой серв,то состяние IdHTTPServer1.Active все равно равно true

[Snake22]

нашел чтото но незнаю как прикрутить к проге?
что значит импорт?

Импорт GetTcpTable:

Код:

unit TcpTable; 
interface 
type 
  PDWord = ^Longword; 
  PMIB_TCPROW = ^TMIB_TCPROW; 
  TMIB_TCPROW = record 
    dwState: LongWord; 
    dwLocalAddr: LongWord; 
    dwLocalPort: LongWord; 
    dwRemoteAddr: LongWord; 
    dwRemotePort: LongWord; 
  end; 
  PMIB_TCPTABLE = ^TMIB_TCPTABLE; 
  TMIB_TCPTABLE = record 
    dwNumEntries: LongWord; 
    table: array[0..0] of TMIB_TCPROW; 
  end; 
function GetTcpTable(var TcpTable: PMIB_TCPTABLE; var Size: PDWord; bOrder: Boolean): LongWord; stdcall 
implementation 
function GetTcpTable; external 'Iphlpapi.dll' name 'GetTcpTable'; 
end. 

Вызов GetTcpTable:

Код:

{$R-} 
    Entries:=16; 
    Sz:=SizeOf(TMIB_TCPTABLE)+SizeOf(TMIB_TCPROW)*(Entries-1); 
    pMibTable:=nil; 
    try 
     repeat 
       ReallocMem(pMibTable,Sz); 
       Res:=GetTcpTable(pMibTable^,Sz,False); 
     until Res <> ERROR_INSUFFICIENT_BUFFER; 
     if Res <> NO_ERROR then 
      begin 
       ShowMessage(SysErrorMessage(Res)); 
       exit; 
      end; 
     for Entries:=0 to pMibTable.dwNumEntries-1 do 
      begin 
         <Делать что-то> 
      end; 
    finally 
     FreeMem(pMibTable); 
    end; 
{$R+}

[Snake22]

и еще вопрос. посылаю файл на сервер.как его через idHTTPServer принять и сохранить? поиском опять же эта тема почемуто то вообще плохо даётся...
в страничке браузера форма аплоада выглядит так

Код:

<FORM NAME="Upload" METHOD="POST" ACTION=test ENCTYPE="multipart/form-data">
<input type="file" name="OpDialog"/>
<input type="submit" name="Send" value="Отправить">
</FORM></body></html>

По тому варианту который нашел в инете ошибка возникает в этом месте

Код:

procedure TForm1.IdHTTPServer1CommandGet(...);
var 
PostedFile:TMemoryStream;
begin
....
   PostedFile:=TMemoryStream.Create; 
   PostedFile.LoadFromStream(ARequestInfo.PostStream);//вот тут ошибка!!
   PostedFile.SaveToFile('c:\testfile');

[Snake22]

так,разобрался в ошибке,поток не считывается потому что PostStream=nil
почему?? чтото не так в форме отправки?
ОТЗОВИТЕСЬ КТО НИТЬ!ААААААААААААААА