Internet Explorer의 현재 url을 문자열로 가져 오는 가장 좋은 방법은 무엇입니까

Question

URL을 현재 Internet Explorer URL에서 문자열로 반환하는 방법을 찾고 있습니다.

이 접근법은 dde를 사용합니다. 그것은 매우 빠르며 잘 동작합니다. 두 부분 모두에서 매우 긴 문자열을 따옴표로 반환합니다. "http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg"

, "http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg"그러나 나는 따옴표없이 첫 번째 쉼표 전에 단지 첫 번째 부분을 찾고 있는데요 :

uses 
    ddeman; 

function GetURL(Service: string): string; 
var 
    ClDDE: TDDEClientConv; 
    temp: PAnsiChar; 
begin 
    Result := ''; 
    ClDDE := TDDEClientConv.Create(nil); 
    with ClDDE do 
    begin 
    SetLink(Service, 'WWW_GetWindowInfo'); 
    temp := RequestData('0xFFFFFFFF'); 
    Result := StrPas(temp); 
    StrDispose(temp); 
    CloseLink; 
    end; 
    ClDDE.Free; 
end; 

예를 들어이 반환을위한 http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg

어떤 제안 또 다른 방법이나 문자열을 구문 분석하여 따옴표없이 문자열의 첫 번째 부분 만 표시된 결과를 생성하는 방법은 무엇입니까?

당신은 꽤 간단하게 문자열을 구문 분석 할 수

Answer 1

자신 : 여기

// Extract string up to position of the , 
Temp := Copy(Temp, 1, Pos(',', Temp) - 1); 
// Remove double-quotes from resulting string 
Temp := StringReplace(temp, '"', '', [rfReplaceAll]); 

는 제공되는 샘플 응답에 위의 논리를 사용하는 샘플 콘솔 응용 프로그램, 그리고 콘솔에 최종 내용을 출력합니다

program Project2; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

const 
    LinkStr = '"http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg","http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg"'; 

var 
    Temp: string; 

begin 
    Temp := Copy(LinkStr, 1, Pos(',', LinkStr) - 1); 
    Temp := StringReplace(Temp, '"', '', [rfReplaceAll]); 
    Writeln('After: ' + Temp); 
    ReadLn; 
end. 

출력 :