تبدیل کد های جایگزین Winsock1 از VB به دلفی

[IISecurity.C]

سلام بچه ها من یه تازه کارم قبل باز کردن تاپیک خیلی ور رفتم ولی نشد احتیاج به کمک و مساعدت شما دارم

توی VB به :

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "Lotfan yek file entekhab konid", vbInformation, "NoFile"
Else
Winsock1.Close
Winsock1.Connect "ُSite.com", 80جایگزین این کدها توی دلفی چی میشه !! و به جای Winsock1 توی وی بی در دلفی از چی استفاده کنیم .
و جای این کدهای Winsock1 :

Private Sub Winsock1_Connect()
Dim Pck As String
Pck = "POST /upload.php HTTP/1.0" & vbCrLf
Pck = Pck & "Referer: http://www.Site.com" & vbCrLf
Pck = Pck & "Accept-Language: en-us" & vbCrLf
Pck = Pck & "Content-Type: multipart/form-data; boundary=---------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Host: www.Site.com" & vbCrLf
Pck = Pck & "Content-Length: " & Len(dFile) + 1224 & vbCrLf
Pck = Pck & "Connection: Keep-Alive" & vbCrLf
Pck = Pck & "Pragma: no-cache" & vbCrLf & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""type""" & vbCrLf & vbCrLf
Pck = Pck & "direct" & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""userfile[]""" & "; filename=""" & CommonDialog1.FileName & """" & vbCrLf
Pck = Pck & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf
Pck = Pck & dFile & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""userfile[]""; filename=""""" & vbCrLf
Pck = Pck & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""userfile[]""; filename=""""" & vbCrLf
Pck = Pck & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""userfile[]""; filename=""""" & vbCrLf
Pck = Pck & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""userfile[]""; filename=""""" & vbCrLf
Pck = Pck & "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""private""" & vbCrLf & vbCrLf
Pck = Pck & "0" & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""x""" & vbCrLf & vbCrLf
Pck = Pck & "0" & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232" & vbCrLf
Pck = Pck & "Content-Disposition: form-data; name=""y""" & vbCrLf & vbCrLf
Pck = Pck & "0" & vbCrLf
Pck = Pck & "-----------------------------7d836b2120232--" & vbCrLf
Winsock1.SendData Pck
Text3 = ""
Label2.Caption = "Lotfan Montazer bemanid..."
End Subکه در صورت عدم کارائی دستور داده شده به برنامه :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
If InStr(Data, """></td><td>Direct</td></tr>") > 0 Then
Text2 = Split(Split(Split(Data, """></td><td>Direct</td></tr>")(0), "</td><td>Mail File</td></tr>")(1), "name=""option"" value=""")(1)
Label2.Caption = "Upload Ba Movafaghiyat anjam shod."
MsgBox "Upload Ba Movafaghiyat anjam shod.", vbInformation, "OK"
End If
If InStr(Data, "General Error!") > 0 Then
Label2.Caption = "Upload Anjam nashod!!!"
MsgBox "File Upload Nashod!!", vbInformation

میاد . جایگزین این کدها توی دلفی چی میشه .

امیدوارم دوستان و مدیران محترم وقت بکنند به من کمک کنند . خیلی مهمه برام (اول راهم)

پیشاپیش از همه دوستان کمال تشکر را دارم :خجالت:

[IISecurity.C]

4 سوال = 0 جواب امیدوار بودم که کمک بگیرم بنا به سابقه ای که انجمن داشت ولی ...

لااقل دوستانی که انجمن خارجی راجب دلفی دارند لینک بدن شاید خارجی ها بتونن کمک کنند

[Touska]

اگر بخواهید این کار رو انجام دهید بهتره از Library های Indy استفاده نمایید.

اگر جستجو می کردید در سایت ، زودتر بجواب می رسیدید.