程式緣起:藥物、醫療器材、化粧品許可證自動查詢
程式功能:傳入"衛署字號" 可以開啟 DO8180.asp網頁，免去網頁點選輸入動作。

[code delphi]
var
flag :char;
param1:string;
param2:string;
implementation
{$R *.dfm}
// Just add a Webbrowser to the form and insert the following code

function _strcspn(s1, s2: PChar): Cardinal; cdecl;
var
SrchS2: PChar;
begin
Result := 0;
while S1^ <> #0 do
begin
SrchS2 := S2;
while SrchS2^ <> #0 do
begin
if S1^ = SrchS2^ then
Exit;
Inc(SrchS2);
end;
Inc(S1);
Inc(Result);
end;
end;
procedure TFINV004.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Docs, Edit : OleVariant;
EDT:OleVariant;
myclick:OleVariant;
begin
Docs :=WebBrowser1.Document;
if flag<>'1' then
begin
Edit := Docs.GetElementByID('selLicKc');
Edit.value:=param1;
Edt := Docs.GetElementByID('txtLicId');
Edt.value:=param2;
myclick:= Docs.GetElementByID('btnDO8180');
myclick.click;
flag:='1';
Caption:='藥物、醫療器材、化粧品許可證查詢作業, Complete!'
end;
end;
procedure TFINV004.FormCreate(Sender: TObject);
var
Lickc:TStringList;
str :string;
begin
Lickc:=TStringList.Create;
str:='衛署醫器輸壹字第001234號'; //查詢字串
Lickc.CommaText:='衛署藥製=01,衛署藥輸=02,衛署成製=03,衛署中藥輸=04,衛署醫器製=05,衛署醫器輸=06,衛署妝製=07,衛署妝輸=08,衛署菌疫製=09,衛署菌疫輸=10,衛署色輸=11,衛署粧陸輸=40,衛署藥陸輸=41,衛署醫器陸輸=42,衛署醫器製壹=43,衛署醫器輸壹=44,衛署醫器外製=45,衛署醫器陸輸壹=46';
param1 :=Lickc.Values[copy(str,1, pos('字',str)-1)]; //查詢分類
param2 :=copy(str, _strcspn(pchar(str),pchar('1234567890')) 1,6);//查詢第 號
Caption:='Please wait for a moment! 查詢分類:' param1 ' No:' param2;
Webbrowser1.Navigate('http://203.65.100.151/DO8180.asp');
flag:=' ';
end;
[/code]

------
What do we live for if not to make life less difficult for each other?

編輯記錄