님들~질문 있습니다.
처음 해 보는거라...너무 어렵네여.
아래 소스는 제가 지금 고민중인 부분입니다.
어떤 특정 파일을 통신프로그램을 이용해서 보내야 하는데...어떻게 해야 할지를 모르겠습니다.
그래서 다른 사람이 짠 소스로 고민중인데..
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;