Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > PHP > PHP Forum > เรื่องรูป ใน word ทำไงดีเนี่ย ทำแล้ว มันไม่ขึ้น ( มาแต่ข้อมูลเหมือนเดิม ) มีโค้ดตัวอย่างมั้ยคะ

เรื่องรูป ใน word ทำไงดีเนี่ย ทำแล้ว มันไม่ขึ้น ( มาแต่ข้อมูลเหมือนเดิม ) มีโค้ดตัวอย่างมั้ยคะ

เริ่มหัวข้อใหม่

Guest

ทำแล้ว มันไม่ขึ้น ( มาแต่ข้อมูลเหมือนเดิม )
มีโค้ดตัวอย่างมั้ยคะ( เพื่อความเข้าใจ )

คือโค้ดทีทำเป็นงี้คะ แต่พอทำแล้วรูปไม่ขึ้นเลย

------------------- ไฟล์เอกสารเวิร์ด ย่อๆ ---------------------------------

include("connect.php");

echo"<table border="."0"." cellspacing="."0"." cellpadding="."0".">";
echo"<tr> <td>";
include("show_pic.php"); //เลือกไฟล์โชว์รูป
echo"</td></tr></table>";

-----------------------------------------------------------------------------------------

------------------- ไฟล์ show_pic.php -------------------------------------

include("connect.php");

$sql="select * from picture where St_ID='$St_ID'";
$result=mysql_query($sql,$Conn);
if(mysql_num_rows($result)<>0){
$rs=mysql_fetch_array($result);
echo "<img src='image.php?St_ID=" .$rs[St_ID] ." '>";
}else{
echo "ไม่มีรูป<br>";
}
-----------------------------------------------------------------------------------------

------------------- ไฟล์ image.php.php -------------------------------------

header("Content-type:image/gif ||Content-type:image/jpg");
include("connect.php");

$sql="select * from picture where St_ID='$St_ID'";
$result=mysql_query($sql,$Conn);
while($rs=mysql_fetch_array($result))
{
echo $rs[st_image] ;

}
-----------------------------------------------------------------------------------------

ลองรันไฟล์ show_pic.php เป็นหน้าเว็บมันขึ้นอยู่นะ
แต่พอสร้างเป็นเอกสารรูปไม่มา

***** รบกวนช่วยบอกเป็นโค้ดทีนะคะ *******

************************************************************************************

header("Content-type:image/gif ||Content-type:image/jpg");
ในหน้าที่มีการส่งรูปมาอาจจะต้องมีการส่ง Header ในรูปแบบของ image มาครับ
ซึ่งจะต้องใส่ในไฟล์ show.php

*************************************************************************************

ได้ทำตามที่แนะนำมาแล้วคะ แต่ก้อไม้ขึ้นอยู่ดี อยากให้ช่วยรันดูให้หน่อย
จะได้แก้ไข code เพราะติดที่ตรงนี้ที่เดียว (จำเป็นมากเลย )[color]

Tag : - - - -

Date : 2 มี.ค. 2548 02:25:23

By : nongnoy

View : 7035

Reply : 2

No. 1

Guest

ลองทำดู ตามที่แนะนำมามันขึ้นเป็นตัวอักษรแปลกๆ
เข้าใจว่ามันไม่อ่านค่าเป็นรูปภาพจะทำไงดีคะ

Date : 5 มี.ค. 2548 21:11:23

By : nongnoy

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (AspWordAddPicture.asp)

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Word.Application</title>
</head>
<body>
<%

Const wdColorDarkRed = &H80

Const wdAlignParagraphCenter = 1
Const wdAlignParagraphLeft = 0
Const wdParagraph = 4
Const wdHorizontalPositionMargin = 0
Const wdTableLeft = -999998
Const wdCollapseEnd = 0

Dim Wrd,WrdDoc,DocName
Dim MyRange1,MyRange2,MyRange3
Set Wrd = CreateObject("Word.Application")
DocName = "MyDoc/MyWord.doc"
Wrd.Application.Visible = False

Set WrdDoc = Wrd.Documents.Add()

Set MyRange1 = WrdDoc.Paragraphs.Add.Range
With MyRange1
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "30"
.Font.Bold = True
.InsertBefore(vbCrLf&vbCrLf&"www.ThaiCreate.Com"&vbCrLf&"Version 2009")
End With

MyRange1.InlineShapes.AddPicture Server.MapPath("thaicreate-2009.gif")
'WrdDoc.InlineShapes.AddPicture Server.MapPath("thaicreate-2009.gif")
'WrdDoc.Shapes.AddPicture Server.MapPath("thaicreate-2009.gif"),0,0,MyRange1
'WrdDoc.Shapes.AddPicture Server.MapPath("thaicreate-2009.gif"),40,6,Wrd.Selection.Range

Set MyRange2 = WrdDoc.Paragraphs.Add.Range
With MyRange2
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "15"
.Font.Bold = True
.InsertBefore(vbCrLf&vbCrLf&"PHP,ASP and ASP.NET Tutorial")
End With

MyRange2.InlineShapes.AddPicture Server.MapPath("doc.gif")

Set MyRange3 = WrdDoc.Paragraphs.Add.Range
With MyRange3
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "10"
.Font.Bold = True
.Font.Color = wdColorDarkRed
.Underline = True
.InsertBefore(vbCrLf&vbCrLf&vbCrLf&vbCrLf&"All Rights Reserved")
End With

WrdDoc.SaveAs(Server.MapPath(DocName))
Wrd.Application.Quit
Set Wrd = Nothing
%>
Word Created <a href="<%=DocName%>">Click here</a> to Download.
</body>
</html>

https://www.thaicreate.com/asp/asp-word.application-addpicture.html

Date : 2009-04-25 09:40:48

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : เรื่องรูป ใน word ทำไงดีเนี่ย ทำแล้ว มันไม่ขึ้น ( มาแต่ข้อมูลเหมือนเดิม ) มีโค้ดตัวอย่างมั้ยคะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01

Registered : 109,037

No. 1

No. 2

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice