sidiq's

Begin jika anda sering bermasalah dalam menggunakan stream, berikut ada beberapa rutin yang biasa saya gunakan untuk mengkonversikan stream. //Stream Convertion {** File to String **} function filetostring(afilename:string):string; var fl:TFileStream; begin fl:=TFileStream.Create(afilename,fmOpenRead or fmShareCompat); SetLength(result,fl.Size); fl.Read(result[1],fl.Size); fl.Free; end; {** String to File **} procedure stringtofile(acontent,afilename:string); var fl:TFileStream; begin fl:=TFileStream.Create(afilename,fmOpenWrite or fmCreate); fl.Write(acontent[1],length(acontent)); fl.Free; end; {** Stream to String **} function stringtofile(adata:TStream):string; var str:TStringStream; s:string; begin str:=TStringStream.Create(s); str.CopyFrom(adata,adata.size); result:=str.datastring; str.free; end; {** String to Stream **} procedure stringtofile(s:String;adata:TStream); var str:TStringStream; begin str:=TStringStream.Create(s); adata.CopyFrom(...

No 1. Bisa menggunakan fungsi yang udah ada di SysUtils function ExtractFileName(const FileName: string): string; No 2. Salah satunya bisa dengan cara ini (perlu dikembangakan untuk meng copy *.exe) : procedure TForm.CopyFile(AFileName: string); var hnd : THandle; sTarget: string; begin sTarget := '\192.168.0.1\sharedfolder\' + AFileName; screen.Cursor := crHourGlass; if not CopyFile(PansiChar(AFileName), PansiChar(sTarget), False) then begin MessageDlg('Gagal meng- copy file :' + AFileName, mtError, [mbOK], 0); Exit; end; Screen.Cursor := crDefault; end;