BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: bchxp ที่ มิถุนายน 09, 2018, 10:24:01 AM

หัวข้อ: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: 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;
หัวข้อ: Re: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: BlueEye ที่ มิถุนายน 09, 2018, 11:25:25 AM
ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ

ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้

โค๊ด: [Select]
WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);


หัวข้อ: Re: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: bchxp ที่ มิถุนายน 09, 2018, 13:21:27 PM
ขอบคุณครับเดี๋ยวลองดู
หัวข้อ: Re: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: ocd125 ที่ ธันวาคม 17, 2018, 17:55:16 PM
ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ

ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้

โค๊ด: [Select]
WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);
ฟอร์มapp เขียนรับค่าตัวแปรยังไงครับผม รบกวนขอตัวอย่างหน่อยครับผม
หัวข้อ: Re: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: BlueEye ที่ ธันวาคม 18, 2018, 13:26:36 PM
เป็นไฟล์ตัวอย่างนะครับ ถ้าจะทำใช้จริง ต้องตรวจสอบก่อนว่าถ้ามี process ของไฟล์นี้ run อยู่ จะต้องไม่เปิดซ้ำ หรืออาจจะต้องเปิดเป็น thread ใหม่เลย
หัวข้อ: Re: ่ทำ shellexecute ไม่ผ่าน
เริ่มหัวข้อโดย: admin30 ที่ พฤษภาคม 01, 2019, 23:39:57 PM
เปิดเว็บด้วยคำสั่งนี้เลยครับ
winexec('cmd /c start http://domain.com/test.php?vn='+fvn);