高手快请进(200分)

  • 主题发起人 主题发起人 liangliang
  • 开始时间 开始时间
L

liangliang

Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位高手,我现在在作一个类似新闻发布的东东(use php),里面需要有图片,那么图片是存在服务器的目录
中调用好呢,还是放在数据库库中调用好呢?上头的意思是最好作在数据库里,便于日后管理。不知各位看法如何?
另外,各位能否给我一个储存和显示数据库中图片的例子,或者能帮我看看下面这个例子为什么显示不出图片来,并能找到
解决方法,一样给分。

二进制数据 + MySQL + PHP
Or: 怎样在Mysql中直接储存图片
作者: Florian Dittmer 翻译:netmad
如果你想把二进制的数据,比如说图片文件和HTML文件,直接保存在你的MySQL数据库,那么这篇文章就是为你而写的!
我将告诉你怎样通过HTML表单来储存这些文件,怎样访问和使用这些文件。
本文概述:
在mysql中建立一个新的数据库
一个怎样储存文件的例子程序
一个怎样访问文件的例子程序
在mysql中建立一个新的database
首先,你必须在你的mysql中建立一个新的数据库,我们将会把那些二进制文件储存在这个数据库里。在例子中我会使用下列结构,为了建立数据库,你必须做下列步骤:
进入MySql控制器
输入命令"create database binary_data;"
输入命令"use binary_data;"
输入命令"CREATE TABLE binary_data ( id INT(4) NOT NULL AUTO_INCREMENT PRIMARY KEY,
description CHAR(50), bin_data LONGBLOB, filename CHAR(50), filesize CHAR(50), filetype CHAR(50));" (不能断行)
如果没有意外,数据库 和 表 应该建立好了。
一个怎样储存文件的例子程序 用这个例子你可以通过Html表单将文件传输到数据库中。.
<pre>
store.php3
<?php
// store.php3 - by Florian Dittmer <dittmer@gmx.net>
?>
<HTML>
<HEAD><TITLE>Store binary data into SQL Database</TITLE></HEAD>
<BODY>
<?php
// 如果提交了表单,代码将被执行:
if ($submit) {
// 连接到数据库
// (你可能需要调整主机名,用户名和密码)
MYSQL_CONNECT( "localhost", "root", "password");
mysql_select_db( "binary_data");
$data = addslashes(fread(fopen($form_data, "r"), filesize($form_data)));
$result=MYSQL_QUERY( "INSERT INTO binary_data (description,bin_data,filename,filesize,filetype) ".
"VALUES ('$form_description','$data','$form_data_name','$form_data_size','$form_data_type')");
$id= mysql_insert_id();
print "<p>This file has the following Database ID: <b>$id</b>";
MYSQL_CLOSE();
} else
{
// 否则显示储存新数据的表单
?>
<form method="post" action=" <?php echo $PHP_SELF;
?>" enctype="multipart/form-data">
File Description:<br>
<input type="text" name="form_description" size="40">
<INPUT TYPE="hidden" name="MAX_FILE_SIZE" value="1000000">
<br>File to upload/store in database:<br>
<input type="file" name="form_data" size="40">
<p><input type="submit" name="submit" value="submit">
</form>
<?php
}
?>
</BODY>
</HTML>
如果你执行了这个程序,你将会看见一个简单的Html表单,单击“浏览”选择一个文件,然后单击提交。
当文件上传至web服务器之后,程序将会告诉你刚刚上传的文件的ID,记住这个ID,待会要用的。
一个怎样访问文件的例子程序
你可以通过这个程序访问你刚才储存的文件
<?php
// getdata.php3 - by Florian Dittmer <dittmer@gmx.net>
// 调用方法: getdata.php3?id=<id>
if($id) {
// 你可能需要调整主机名,用户名和密码:
@MYSQL_CONNECT( "localhost", "root", "password");
@mysql_select_db( "binary_data");
$query = "select bin_data,filetype from binary_data where id=$id";
$result = @MYSQL_QUERY($query);
$data = @MYSQL_RESULT($result,0, "bin_data");
$type = @MYSQL_RESULT($result,0, "filetype");
Header( "Content-type: $type");
echo $data;
};
?>
程序必须知道要访问那个文件, 你必须将ID作为一个参数。
例如: 一个文件在数据库中的ID为2. 你可以这样调用它:
getdata.php3?id=2如果你将图片储存在数据库里, 你可以向调用图片一样调用它。
Example: 一个图片文件在数据库中的ID为3. 你可以这样调用它:
<img src="getdata.php3?id=3">
怎样储存大于1MB的文件:
如果你想储存大于1MB的文件,你必须对你的程序、PHP设置、SQL设置进行许多修改,。
下面几条也许可以帮助你储存小于24MB的文件:
修改 store.php3 ,将 MAX_FILE_SIZE 的值改成 24000000。
修改你的PHP设置,在一般情况下,PHP只允许小于2MB的文件,你必须将max_filesize(在php.ini中)的值改成24000000
去掉MYSQL的数据包大小限制,在一般情况下 MYSQL 小于1 MB的数据包.
你必须用以下参数重启你的MYSQL
/usr/local/bin/safe_mysqld -O key_buffer=16M -O table_cache=128 -O sort_buffer=4M -O record_buffer=1M -O max_allowed_packet=24M
如果仍然出错:
可能是超时错误,如果你通过一个很慢的连接来储存一个很大的文件,PHP缺省的时间限制为30秒。
你可以将max_execution_time(在php.ini中)的值改为-1
</pre>

 
sorry, 大家就看最前的四行吧,那个例子可到<a href='http://www.phpx.com/show.php?d=faqdb&amp;i=5'>这里</a>看.
 
存储图片就用BLOB字段就可以
简单loadfromfile
delphi里有demo的
 
我有一个oracle下的例子,贴出来给你参考参考!
在数据库中插入一个文件
var
MyStream:TmemoryStream;
FileName:String;
i:Integer;
begin
if OpenDialog1.Execute then
begin
Filename:=OpenDialog1.FileName;
end
else
begin
Exit;
end;
MyStream:=TMemoryStream.Create;
try
MyStream.loadfromfile(Filename);
MyStream.Seek(0,soFrombegin
ning);
Database1.Open;
database1.StartTransaction;
try
WITH Query1do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO D_EXECUTE VALUES(:PROGNAME,:UPDATEDATE,:EXE)');
ParamByName('PROGNAME').AsString:=GetFileName(Filename);
ParamByName('UPDATEDATE').AsDateTime:=Now;
ParamByName('EXE').LoadFromStream(MyStream,ftBlob);
ExecSQL;
end;
Database1.Commit;
except
On E: EDBEngineErrordo
begin
Database1.Rollback;
for i := 0 to E.ErrorCount - 1do
begin
case E.Errors.ErrorCode of
$2601:
begin
beep;
ShowMessage('呵呵!我不允许鍵值重覆!');
end;

$270b:
begin
beep;
Showmessage('对不起,你的受到主外键约束!怎么样,很失望吧!');
end;
$2b05:
begin
beep;
Showmessage('太糟糕了,网络连接超时判负!TMD');
end;
$0028:
begin
beep;
Showmessage('琐定违例!');
end;
$1200:
begin
beep;
Showmessage('不能识别的SQL错误!呵呵,有事干了!');
end;
$2501:
begin
beep;
Showmessage('太糟糕了,你的内存不足!请使用N(N>=10000)兆内存');
end;
$2605:
begin
beep;
Showmessage('对不起,你所添加的数据违反外键约束!');
end;
$2728:
begin
beep;
Showmessage('你所操作的表不存在!');
end;
$2801:
begin
beep;
Showmessage('记录已经被其它用户琐定!');
end;
$2a06:
begin
beep;
Showmessage('数据引擎初始化错误!');
end;
$2c01:
begin
beep;
Showmessage('网络初始化失败!');
end;
$2c07:
begin
beep;
Showmessage('呜呜..呜呜!一个我不知道的网络错误,这不可能!');
end;
$2c0d:
begin
beep;
Showmessage('是谁干的!!服务器竟然没打开!');
end;
$3e07:
begin
beep;
Showmessage('初始化失败!');
end;
$3303:
begin
//ShowMessage('服务器端错误:一般的SQL错误!');
end;
else
raise EDatabaseError.Create(E.Message);
end;
//case
end;
//for
end;
//on EDBError
end;
//try..except
finally
MyStream.Free;
end;
end;

取出文件
var
MyStream:TmemoryStream;
FileName:string;
i:Integer;
Path:PChar;
begin
if not InputQuery('测试程序的正确性','请输入程序的名称',FileName) then
Exit;//如果不则推出程序
MyStream:=TMemoryStream.Create;

try
try
WITH Query1do
begin
Close;
SQL.Clear;
SQL.Add('Select * from D_EXECUTE WHERE Progname='''+trim(Uppercase(FileName))+'''');
Prepare;
open;
first;
if not eof then
begin
Query1EXE.SaveToStream(MyStream);
MyStream.Seek(0,0);
MyStream.SaveToFile(GetCurrentDir+'/'+FieldByname('progName').AsString+'.exe');
next;
end
else
//如果该程序不存在
begin
ShowMessage('该程序不存在!');
end;
close;
end;
except
On E: EDBEngineErrordo
begin
for i := 0 to E.ErrorCount - 1do
begin
case E.Errors.ErrorCode of
$2601:
begin
ShowMessage('呵呵!我不允许鍵值重覆!');
end;
$270b:
begin
Showmessage('对不起,你不能破坏引用完整性!怎么样,很失望吧!');
end;
$2b05:
begin
Showmessage('太糟糕了,网络连接超时判负!TMD');
end;
$0028:
begin
Showmessage('琐定违例!');
end;
$1200:
begin
Showmessage('不能识别的SQL错误!呵呵,有事干了!');
end;
$2501:
begin
Showmessage('太糟糕了,你的内存不足!请使用N(N>=10000)兆内存');
end;
$2728:
begin
Showmessage('你所操作的表不存在!');
end;
$2801:
begin
Showmessage('记录已经被其它用户琐定!');
end;
$2a06:
begin
Showmessage('数据引擎初始化错误!');
end;
$2c01:
begin
Showmessage('网络初始化失败!');
end;
$2c07:
begin
Showmessage('呜呜..呜呜!一个我不知道的网络错误,这不可能!');
end;
$2c0d:
begin
Showmessage('是谁干的!!服务器竟然没打开!');
end;
$3e07:
begin
Showmessage('初始化失败!');
end;
$3303:
begin
//ShowMessage('服务器端错误:一般的SQL错误!');
end;
else
raise EDatabaseError.Create(E.Message);
end;
//case
end;
//for
end;
//on EDBError
end;
finally
MyStream.Free;

end;

end;
 
各位各位,看清了,我是要用php做,显示在网页中。用delphi我也会作。
 
php,hehe 我熟呀,可是电话费太多了,回来去机房看吧
 

jiangjiang:
给出的例子中没看到 filetype 的设定,图片不能显出是否与此有关 ?

 
1. I am liangliang.
2. $form_data_name, $form_data_size, $form_data_type这三个变量,由&amp;lt;input type="file" name="form_data" size="40"&amp;gt;
自身提供无须设定。事实上例子不是都不能显示。拿c:/windows下的图片举例子吧,如Hlpbell.gif就能显示,
而cloud.gif只能显示一点,而forest.bmp就显示不出来,只有一个边框。本以为与图片大小有关,可
安装程序.bmp这个302k的大家伙却能显示得出来搞得我一头雾水。
3。大家继续,继续,200分啊。我可急着要用呢。
 
liangliang:please continue
 
liangliang:please continue
 
php我只是在学,有机会交流交流
 
各位都怎么了,200分啊,我也在等大家continue啊!
 
专门用一个目录存放图片,图片的命名依据一定的规则,也便于查找嘛!
数据库中只要建立一个连接该字图片的字段。
 
liangliang:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
to liangliang
我想知道怎样用delphi与mysql数据库的二进制文件存入及取出。
我的问题在http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=400746
最好有例子。
 
多人接受答案了。
 
后退
顶部