BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: arr_012 ที่ เมษายน 20, 2011, 13:40:54 PM
-
คือ ผมต้องการ ดึงรูปภาพที่ได้ถ่ายไว้ตอนที่มาทำประวัติ ที่ตาราง select * from patient_image ผมจะสามารถนำภาพออกมา ได้อย่างไรครับ
-
อันนี้ผมลองใช้ Navicat Premium แต่ต้องเลือกที่ละคน อ่ะ ครับ
-
< ?php
$location="/home/jgoddard/Desktop/images/";
$db = mysql_pconnect("localhost","user","password");
mysql_select_db("images",$db);
$sql="SELECT imageid, image from images";
$rs = mysql_query($sql,$db);
echo "<h2>EXPORTING INTO $location</h2>";
$counter=0;
while ($row=mysql_fetch_object($rs)) {
$filename=$location.$row->imageid.”.jpg”;
$file=fopen($filename,’w');
if (fwrite($file,$row->image)) {
echo $filename.”<br />”;
$counter++;
}
}
echo “<h2>$counter images exported</h2>”;
? >
-
นำออกรายงานใช่ใหมครับ
-
ดึงออกมาเป็นไฟล์ โดยใช้ vb6 ครับ
-----------------------------------------------
Dim strcon As String
strcon = "Driver={MySQL ODBC 5.1 Driver};Server=192.168.5.100;Port=3306;Database=hos;User=sa; Password=sa;Option=3;"
Dim conn As New ADODB.Connection
conn.ConnectionString = strcon
conn.CursorLocation = adUseClient
If conn.State = adStateOpen Then conn.Close
conn.Open
Dim rs As New ADODB.Recordset
Dim mystream As New ADODB.Stream
mystream.Type = adTypeBinary
rs.Open "select * from patient_image", conn
If Not rsEOF Then rs.MoveFirst
Dim i As Integer
i = 0
Do While Not rs.EOF
mystream.Open
mystream.Write rs!Image
mystream.SaveToFile "c:\\newimage" & i & ".gif", adSaveCreateOverWrite
mystream.Close
i = i + 1
rs.MoveNext
Loop
rs.Close
conn.Close
-
ถ้าจะ save รูปออกมาก็ลองเอา Script นี้ไป run นะครับ ใน Tab DFM ให้ clear ออกให้หมดก่อนครับ เอา Script นี้ไปปะไว้ในช่อง Source แล้วกดปุ่ม Execute ครับ
program test;
var tc:tclientdataset;
SavePath:String;
begin
SavePath:='d:\temp\';
tc:=tclientdataset.create(nil);
tc.data:=hosxp_getdataset('select * from patient_image');
while not tc.eof do
begin
tblobfield(tc.fieldbyname('image')).savetofile(SavePath+tc.fieldbyname('hn').asstring+'.jpg');
tc.next;
end;
tc.free;
showmessage('Done.');
end;
end.
-
สุดยอดครับ..อาจารย์ชัยพร....ภาพมาเยอะมากเลย... :D :D :D :) :) :)
-
สุดยอดครับ..อาจารย์ชัยพร....ภาพมาเยอะมากเลย... :D :D :D :) :) :)
ก็เท่าที่มีใน patient_image และครับ
-
สุดยอดครับ..อาจารย์ชัยพร....ภาพมาเยอะมากเลย... :D :D :D :) :) :)
ก็เท่าที่มีใน patient_image และครับ
ของผมได้มาจากระบบ smartcard พอสมควรครับ...