Q&A

  • 응용프로그램 실행하기
님들~질문 있습니다.
처음 해 보는거라...너무 어렵네여.

아래 소스는 제가 지금 고민중인 부분입니다.
어떤 특정 파일을 통신프로그램을 이용해서 보내야 하는데...어떻게 해야 할지를 모르겠습니다.
그래서 다른 사람이 짠 소스로 고민중인데..
file2가 문제 입니다.
file2는 textfile인데...memo.lines는 textfile랑 속성이 달라서 오류가 나더군여
(참고로 통신프로그램을 통해 보내지는 파일은 uplode.xxx로 memo.lines를 저장하면 무조~~건 uplode.xxx라는 이름으로 저장 됩니다.)
어디를 어떻게 손을 써야 할지 몰라서 이렇게 님들께 조언을 요청합니다.
말로 하면 참 편한데 직접 짜려니 왜 이리 힘든건지..(uplode.xxx를 통신 프로그램을 이용해서 보낸다...이게 끝인데..ㅡㅜ)
님들 도와 주세여






procedure TMainForm.SpeedButton14Click(Sender: TObject);
var
  File1, temp : String;
  File2 : textfile;
begin
File1:='c:winmateoutklnetupload.xxx';
File2 := memo.lines; //▶▶▶문제의 부분


if not(fileExists(File1)) then
   Begin
     showmessage('송신할 파일이 없습니다.');
     exit;
   end;

  //송신파일
    IniFile := TIniFile.Create('sedit.INI');
Try
    Temp:=IniFile.ReadString('User', '통신프로그램','');
  finally
    IniFile.Free;
   end;

  //송신Log수신Log삭제
  if FileExists(ExtractFilePath(temp)+'Send.log') then
     DeleteFile(ExtractFilePath(temp)+'Send.log');


     Temp:=ExtractFilePath(temp)+'edicomm.exe';
     App.Wait:=True;
     App.ApplicationName:=Temp;
     App.Parameters:=' S BAPLIE -NB';
     App.Execute;

  //송신Log삭제 후 확인
  if FileExists(ExtractFilePath(temp)+'Send.log') then
     Begin
      AssignFile(file2,ExtractFilePath(temp)+'Send.log');
      Reset(FILE2);
      Readln(FILE2,Temp);
      if Copy(Temp,1,2)='OK' then
         Begin
         MessageDlg('전송되었습니다.', mtInformation, [mbOK], 0);
         //UpdateStatus2;

      end;
      CloseFile(file2);
     end;

end;
0  COMMENTS