BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: bchxp ที่ มิถุนายน 09, 2018, 10:24:01 AM
-
อยากเปิด web โดยกดปุ่ม. ปรากฎว่า ไม่ทำงาน ไม่ทราบติดตรงไหน ลอง call function มันไม่รู้จัก rfReplaceAll กะ SW_SHOWNORMAL
var fvn,fhn, URL: string;
begin
URL := 'http://www.abc.co.th?vn="'+fvn+'"';
fvn := GetGlobalValue('VN');
fhn := getsqldata('select hn from ovst where vn="'+fvn+'" ');
URL := StringReplace(URL, '"', '%22', [rfReplaceAll]);
ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);
end;
-
ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ
ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้
WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);
-
ขอบคุณครับเดี๋ยวลองดู
-
ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ
ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้
WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);
ฟอร์มapp เขียนรับค่าตัวแปรยังไงครับผม รบกวนขอตัวอย่างหน่อยครับผม
-
เป็นไฟล์ตัวอย่างนะครับ ถ้าจะทำใช้จริง ต้องตรวจสอบก่อนว่าถ้ามี process ของไฟล์นี้ run อยู่ จะต้องไม่เปิดซ้ำ หรืออาจจะต้องเปิดเป็น thread ใหม่เลย
-
เปิดเว็บด้วยคำสั่งนี้เลยครับ
winexec('cmd /c start http://domain.com/test.php?vn='+fvn);