|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.03.2007, 10:32 | #1 |
Регистрация: 28.03.2007
Сообщений: 8
|
Передача файлов на WEB-сервер
Помогите пожалуйста кто может.
Нужно написать cgi-скрипт который будет принимать файл из браузера клиента выбранный в форме и сохранять его на диске web-сервера. Если можно то с примером. За ранее спасибо! |
28.03.2007, 10:37 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
CGI скрипт на чем ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
28.03.2007, 10:41 | #3 |
Регистрация: 28.03.2007
Сообщений: 8
|
На Delphi 7.0
|
28.03.2007, 10:46 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Я не зря спросил.
Asp? Pascal Script?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
28.03.2007, 11:41 | #5 |
Регистрация: 28.03.2007
Сообщений: 8
|
Обычное консольное приложение Delphi 70, которое работает на стороне сервера, как cgi-программа.
|
28.03.2007, 11:51 | #6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Delphi(Object Pascal) не является языком сценариев.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
28.03.2007, 12:12 | #7 |
Регистрация: 28.03.2007
Сообщений: 8
|
Я знаю это(я пишу не сценарий а cgi-приложение для win32-сервера). У меня не плохо получалось пока не столкнулся с проблеммой приема файлов от клиента
|
28.03.2007, 12:15 | #8 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
SeregaP, т.е. клиент может закачивать файл, а сервер никак. ?! - очень странно. есть наработки, выкладывайте в тему.
|
28.03.2007, 12:23 | #9 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
1. Все же вас поправлю:
CGI-приложение под Win32 писать невозможно. 2. какими компонентами пользуетесь ? приведите код, который не работает.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
28.03.2007, 12:33 | #10 |
Регистрация: 28.03.2007
Сообщений: 8
|
Сама программа:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var ServerName, GatewayInterface, ServerPort, QueryString, RemoteIdent, HttpRefer, HttpConnection, HttpHost, HttpAcceptEncoding, HttpFrom, ContenType, ContentLength, PathInfo, RequestMethod, ScriptName: string; ii, k, i: integer; AllContent, s: string; f: text; begin { TODO -oUser -cConsole Main : Insert code here } ServerName:=GetEnvironmentVariable( 'Server_Name'); RequestMethod:=GetEnvironmentVariab le('Request_Method'); PathInfo:=GetEnvironmentVariable('P ath_Info'); ScriptName:=GetEnvironmentVariable( 'Script_Name'); GatewayInterface:=GetEnvironmentVar iable('Gateway_Interface'); ServerPort:=GetEnvironmentVariable( 'Server_Port'); QueryString:=GetEnvironmentVariable ('Query_String'); RemoteIdent:=GetEnvironmentVariable ('Remote_Ident'); HttpRefer:=GetEnvironmentVariable(' Http_Refer'); HttpConnection:=GetEnvironmentVaria ble('Http_Connection'); HttpHost:=GetEnvironmentVariable('H ttp_Host'); HttpAcceptEncoding:=GetEnvironmentV ariable('Http_Accept_Encoding'); HttpFrom:=GetEnvironmentVariable('H ttp_From'); ContenType:=GetEnvironmentVariable( 'Conten_Type'); ContentLength:=GetEnvironmentVariab le('Content_Length'); if ContentLength<>'' then begin k:=0; ii:=StrToInt(ContentLength); AssignFile(f,'Temp.txt'); Rewrite(f); while k<ii do begin readln(s); Writeln(f,s); k:=k+Length(s)+2 end; CloseFile(f); end; writeln('Content type: text/html'); writeln; writeln('<html>'); writeln('<head>'); writeln(' <meta http-equiv="content-type" content="text/html; charset=windows-1251">'); writeln('</head>'); writeln('<body>'); writeln('Спасибо за обращение ваши данные будут опубликованы на нашем сайте'); writeln('<br>',ii,'<br>',k); writeln('</body>'); writeln('</html>'); end. HTML-страница: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> </head> <body> <form method=POST action="http://mysite/cgi-bin/Project2.exe" enctype="multipart/form-data"> File2 Test:<input type=file name="myfile1"><br> <input type=submit value='Send'> <input type=reset value='Reset'> </form> </body> </html> Код работает, но как сохранить отправленный файл в исходном виде на web-сервере? Последний раз редактировалось SeregaP; 28.03.2007 в 12:40. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Передача файла на сервер | eldar | Работа с сетью в Delphi | 4 | 03.09.2008 22:09 |
Need Help! Передача файлов (Сервер-Клиент) | Elandar | Работа с сетью в Delphi | 1 | 25.07.2008 00:22 |
Передача данных на сервер с помощью Delphi | Арес | Работа с сетью в Delphi | 7 | 10.03.2008 13:29 |
Передача файлов по интернету. Клиент-сервер. | Kukkk | Работа с сетью в Delphi | 4 | 03.12.2007 06:08 |
Передача файлов | wolff | Работа с сетью в Delphi | 3 | 03.03.2007 15:54 |