開発環境
Visual Studio 2008 言語 VB.NET
Framework 2.0
OS:WindowsXP SP3
質問内容
画像を管理するプログラムを作成中なのですが、サーバにMacのイラストレータで作成したＥＰＳファイルをWindows端末にコピーし開発したプログラムを使用してWindowsサーバにＦＴＰ転送するとリソースフォークがなくなった状態のＥＰＳファイルになってしまいます。ＥＰＳファイルとしては、それで全く問題ないのですが。リソース情報もほしいということなので質問させていただきます。
現在サーバにＦＴＰするためのソースは以下のコードになります。
この関数を使用し、サーバにＦＴＰ転送するとMacのリソースフォークがないファイルになってしまいます。
フリーのＦＴＰツールを使っても同様です。
Socket通信を使用したプログラムでも同様でした。
Windows環境にコピーしてきたＥＰＳファイルにはリソースフォークが残っていることは確認済みです。
なにかいい方法がありましたらご教授願います。
Public Function FTP_KIKAN_Upload(ByVal InServerIP As String, ByVal InLocalFileName As String, ByVal InLocalPath As String, ByVal InServerPath As String, Optional ByVal InServerFileName As String = "") As Boolean
On Error GoTo Err_Func
Dim strWork() As String
Dim strProgramName As String
mLastErrorMessage = ""
mLastErrorNumber = 0
FTP_KIKAN_Upload = False
If InLocalFileName = "" Then
GoTo Exit_Func
End If
Dim uri As String = "ftp://" & InServerIP & "/" & InServerPath & IIf(InServerFileName = "", InLocalFileName, InServerFileName)
Dim myFile As String = InLocalPath & InLocalFileName
Dim req As WebRequest = WebRequest.Create(uri)
req.Credentials = New NetworkCredential("userid", "password")
req.Method = WebRequestMethods.Ftp.UploadFile
Using st As Stream = req.GetRequestStream()
Using fs As New FileStream(myFile, FileMode.Open)
Dim buf(1024) As Byte
Dim count As Integer = 0
Do
count = fs.Read(buf, 0, buf.Length)
st.Write(buf, 0, count)
Loop While count <> 0
End Using
End Using
FTP_KIKAN_Upload = True
Exit_Func:
On Error Resume Next
Exit Function
Err_Func:
mLastErrorMessage = Err.Description
mLastErrorNumber = Err.Number
'Call DispErrMsg("X", Err.Number, "clsFunc.FTP_KIKAN_Upload:" & Err.Description)
Resume Exit_Func
End Function
MacでAdobeイラストレータを使用した作成したEPSファイルのリソースフォークを失わずにWindows環境でＦＴＰ転送する方法
