Передача файлов на WEB-сервер - Работа с сетью в Delphi

SeregaP · 28.03.2007, 10:32

Помогите пожалуйста кто может.
Нужно написать cgi-скрипт который будет принимать файл из браузера клиента выбранный в форме и сохранять его на диске web-сервера. Если можно то с примером.
За ранее спасибо!

Квэнди · 28.03.2007, 10:37

CGI скрипт на чем ?

SeregaP · 28.03.2007, 10:41

На Delphi 7.0

Квэнди · 28.03.2007, 10:46

Я не зря спросил.
Asp?
Pascal Script?

SeregaP · 28.03.2007, 11:41

Обычное консольное приложение Delphi 70, которое работает на стороне сервера, как cgi-программа.

Квэнди · 28.03.2007, 11:51

Delphi(Object Pascal) не является языком сценариев.

SeregaP · 28.03.2007, 12:12

Я знаю это(я пишу не сценарий а cgi-приложение для win32-сервера). У меня не плохо получалось пока не столкнулся с проблеммой приема файлов от клиента

Alar · 28.03.2007, 12:15

SeregaP, т.е. клиент может закачивать файл, а сервер никак. ?! - очень странно. есть наработки, выкладывайте в тему.

Квэнди · 28.03.2007, 12:23

1. Все же вас поправлю:
CGI-приложение под Win32 писать невозможно.
2. какими компонентами пользуетесь ? приведите код, который не работает.

SeregaP · 28.03.2007, 12:33

Сама программа:
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-сервере?

28.03.2007, 10:32	#1
SeregaP Регистрация: 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:46	#4
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Я не зря спросил. Asp? Pascal Script? ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

28.03.2007, 11:51	#6
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Delphi(Object Pascal) не является языком сценариев. ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

28.03.2007, 12:15	#8
Alar Александр Администратор Регистрация: 28.10.2006 Сообщений: 17,501	SeregaP, т.е. клиент может закачивать файл, а сервер никак. ?! - очень странно. есть наработки, выкладывайте в тему. Купить рекламу на форуме за 42 тыс руб за месяц размещения

28.03.2007, 10:41	#3
SeregaP Регистрация: 28.03.2007 Сообщений: 8	На Delphi 7.0

28.03.2007, 11:41	#5
SeregaP Регистрация: 28.03.2007 Сообщений: 8	Обычное консольное приложение Delphi 70, которое работает на стороне сервера, как cgi-программа.

28.03.2007, 12:12	#7
SeregaP Регистрация: 28.03.2007 Сообщений: 8	Я знаю это(я пишу не сценарий а cgi-приложение для win32-сервера). У меня не плохо получалось пока не столкнулся с проблеммой приема файлов от клиента

28.03.2007, 12:23	#9
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	1. Все же вас поправлю: CGI-приложение под Win32 писать невозможно. 2. какими компонентами пользуетесь ? приведите код, который не работает. ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

28.03.2007, 12:33	#10
SeregaP Регистрация: 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