質問編集履歴
1
質問内容の変更
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,68 +6,124 @@
|
|
6
6
|
|
7
7
|
ローカル上にあるPDFファイルを
|
8
8
|
|
9
|
-
サーバーにアップロードする
|
9
|
+
サーバーにアップロードするところまでは行けたのですが
|
10
10
|
|
11
11
|
|
12
|
+
|
13
|
+
落ちてたソースコードを使っており、
|
14
|
+
|
15
|
+
意味も分からず利用している為、
|
16
|
+
|
17
|
+
元のPDFファイルに無駄な情報が付与されてしまったようで、
|
18
|
+
|
19
|
+
破損ファイル扱いされてしまいました。
|
12
20
|
|
13
21
|
|
14
22
|
|
15
23
|
```VBA
|
16
24
|
|
17
|
-
|
25
|
+
'送信側---------------------------------------------------------
|
18
26
|
|
27
|
+
Sub Sample()
|
28
|
+
|
29
|
+
'---------------------------------------------------------
|
30
|
+
|
31
|
+
Const UserID = "Mook"
|
32
|
+
|
33
|
+
Const PassWD = "OpenSesami"
|
34
|
+
|
35
|
+
Const CabinetID = 1
|
36
|
+
|
37
|
+
FileUpload "C:\Users\PC1\Desktop\AAAA.pdf", CabinetID, UserID, PassWD
|
38
|
+
|
39
|
+
End Sub
|
40
|
+
|
41
|
+
'---------------------------------------------------------
|
42
|
+
|
43
|
+
Sub FileUpload(filePath, CabID, UserID, PassWD)
|
44
|
+
|
45
|
+
'---------------------------------------------------------
|
46
|
+
|
47
|
+
Const Server = "11.222.333.44/test.php"
|
48
|
+
|
49
|
+
Dim strBoundary: strBoundary = DateDiff("s", "1970/1/1 0:00:00", DateAdd("h", -9, Now))
|
50
|
+
|
51
|
+
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
|
52
|
+
|
53
|
+
Set Stream = CreateObject("ADODB.Stream")
|
54
|
+
|
55
|
+
Stream.Open
|
56
|
+
|
57
|
+
Stream.Type = 1
|
58
|
+
|
59
|
+
Stream.LoadFromFile filePath
|
60
|
+
|
61
|
+
objHTTP.Open "POST", "http://" & Server, False, UserID, PassWD
|
62
|
+
|
63
|
+
objHTTP.SetRequestHeader "Content-Type", "multipart/form-data; boundary=""" & strBoundary & """"
|
64
|
+
|
19
|
-
Dim
|
65
|
+
Dim str
|
66
|
+
|
67
|
+
str = "--" & strBoundary & vbCrLf
|
68
|
+
|
69
|
+
str = str & "Content-Disposition: form-data; name=""fdrParentSid""" & vbCrLf & vbCrLf
|
70
|
+
|
71
|
+
str = str & CabID & vbCrLf
|
72
|
+
|
73
|
+
str = str & "--" & strBoundary & vbCrLf
|
74
|
+
|
75
|
+
str = str & "Content-Disposition: form-data; name=""uploadFile""; filename=""" & Dir(filePath) & """" & vbCrLf
|
76
|
+
|
77
|
+
str = str & "Content-Type: text/plain" & vbCrLf & vbCrLf
|
78
|
+
|
79
|
+
str = str & Stream.Read() & vbCrLf
|
80
|
+
|
81
|
+
str = str & "--" & strBoundary & "--"
|
82
|
+
|
83
|
+
objHTTP.Send str
|
84
|
+
|
85
|
+
MsgBox objHTTP.responseText
|
86
|
+
|
87
|
+
End Sub
|
20
88
|
|
21
89
|
|
22
90
|
|
23
|
-
|
91
|
+
```
|
24
92
|
|
25
|
-
|
93
|
+
```PHP
|
26
94
|
|
27
|
-
|
95
|
+
if ( $_FILES['uploadFile']['error'] == UPLOAD_ERR_OK )
|
28
96
|
|
97
|
+
{
|
98
|
+
|
99
|
+
|
100
|
+
|
29
|
-
|
101
|
+
$upload_file = "../test/" . $_FILES["uploadFile"]["name"] ;
|
30
102
|
|
31
103
|
|
32
104
|
|
33
|
-
|
105
|
+
if ( move_uploaded_file( $_FILES["uploadFile"]['tmp_name'], $upload_file ) )
|
34
106
|
|
35
|
-
|
107
|
+
{
|
36
108
|
|
37
|
-
|
109
|
+
// Read and write for owner, read for everybody
|
110
|
+
|
111
|
+
chmod($upload_file, 0644);
|
112
|
+
|
113
|
+
}
|
114
|
+
|
115
|
+
}
|
38
116
|
|
39
117
|
|
40
|
-
|
41
|
-
' 送信するファイルを読み込む
|
42
|
-
|
43
|
-
Stream.LoadFromFile = "C:\xxx\hoge.pdf"
|
44
|
-
|
45
|
-
|
46
|
-
|
47
|
-
|
48
|
-
|
49
|
-
Call objHTTP.Open("POST", "http://hogehoge.com/TextUp.php", False)
|
50
|
-
|
51
|
-
Call objHTTP.setRequestHeader("Content-Length", Stream.Size)
|
52
|
-
|
53
|
-
Call objHTTP.send(Stream.read(Stream.Size))
|
54
|
-
|
55
|
-
msg1 = objHTTP.responsetext
|
56
|
-
|
57
|
-
|
58
|
-
|
59
|
-
' Streamを閉じる
|
60
|
-
|
61
|
-
Stream.Close
|
62
118
|
|
63
119
|
```
|
64
120
|
|
65
121
|
|
66
122
|
|
67
|
-
上記
|
123
|
+
上記、プログラムをたたいて
|
68
124
|
|
69
|
-
p
|
125
|
+
pdfがサーバー上に作成はされるのですが、
|
70
126
|
|
71
|
-
|
127
|
+
無駄なパラメーターを付与してしまっているので
|
72
128
|
|
73
|
-
した
|
129
|
+
破損させないようにしたいです。
|