Delphi FTP 주소 해결 방법
procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);
var
i,j:integer;
strAuthorization,strAddr,strDirFile:string;
//
begin
UserName:= 'anonymous';
Password:= '[email protected]';
IP := '';
strAddr := Copy(S,7,length(S)-6);
// ftp://
//S ftp://rec:[email protected]/20050418/abcdef.vox,
// ftp://192.168.76.11/......
i := Pos('@',S);
if(i>0) then
begin
strAuthorization := Copy(S,7,i-7);
//
j:=Pos(':',strAuthorization);
if(j<1)then
exit;
UserName := Copy(strAuthorization,1,j-1);
PassWord := Copy(strAuthorization,j+1,length(strAuthorization)-j);
end;
i := Pos('@',strAddr);
j:=Pos('/',strAddr);
if(j>0) then
IP := Copy(strAddr,i+1,j-i-1);// IP
strDirFile := Copy(strAddr,j+1,length(strAddr)-j);
DirList.Delimiter := '/';
DirList.DelimitedText := strDirFile;//
FileName := DirList[DirList.count-1];//
DirList.Delete(DirList.Count-1);
end;
본고에서 서술한 것이 여러분의 Delphi 프로그램 설계에 도움이 되었으면 합니다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.