西祠發帖子需要在帖子里上傳圖片,目前已解決了文本部分,上傳圖片一頭霧水,忘諸位大拿幫忙解決.
發帖的代碼:
procedure TForm1.Button2Click(Sender: TObject);
var
FTitle,FContent: IHTMLInputElement;
FSubmit: OLEVariant;
doc : IHTMLDocument2;
el: OleVariant;
v: OleVariant;
i: Integer;
sTitle, sText:WideString;
begin
try
sTitle := Edit2.Text;
if sTitle = '' then
begin
ShowMessage('請輸入發帖標題!');
Exit;
end;
sText := Memo1.Text;
if sText = '' then
begin
ShowMessage('請輸入發帖內容!');
Exit;
end;
if WebBrowser1.Document <> nil then begin
if WebBrowser1.Document.QueryInterface(IHTMLDocument2,doc) = S_OK then begin
try
FTitle := doc.all.item('doc_title', 0) as IHTMLInputElement;
FTitle.value :=sTitle;
WebBrowser1.OleObject.document.Script.tinyMCE.setContent(sText);
FSubmit := doc.all.item('bSendDoc', 0);
//FSubmit.click;
ShowMessage('發帖成功,標題:'+ FTitle.value);
except
ShowMessage('發帖失敗,標題:'+ FTitle.value);
end;
end;
end;
finally
end;
end;
圖片部分還沒有,忘各位多多幫忙
uj5u.com熱心網友回復:
登陸賬戶:3doo密碼:3doo.cn
uj5u.com熱心網友回復:
通過內嵌的瀏覽器+js,能發文字應該也能發圖啊看看圖片需要填哪些input
如果使用tcp/http控制元件實作,圖片需要生成分段的資料,格式要求比較多
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/97451.html
標籤:網絡通信/分布式開發
上一篇:新手求解決,控制元件位置錯亂
下一篇:C#連接*.db檔案
