Yorumları: 698
Konuları: 74
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.620
Programcı
Selamlar
@
mrmarman hocamızın daha önce örneğini vermiş olduğu webcamden görüntü alma örneğine istinaden bir capture işlemi yaptım.
Elimde IP kamera var ve bu kameraya webbrowser üzerinden IP adresi ile bağlandığımda sorunsuz olarak görüntüyü alabiliyorum. Ancak bunu delphi ile yapmayı denedim. Araştırma yaptığımda XE4 ile yapılmış olan örneği buldum ve aynısını uyguladım. Ancak, Loading Bitmap Failed hatası alıyorum. Kodu aşağıda paylaşıyorum. Ayrıca embercaderonun eğitim kodunu paylaştığı video linkini de paylaşıyorum. Bu kodlara istinaden sorunun sebebi hakkında yardımlarınızı rica ederim.
Kod :
procedure TForm1.btnGetJPEGClick(Sender: TObject);
var
ResponseContent: TMemoryStream;
begin
// Create response stream
ResponseContent := TMemoryStream.Create;
try
// Request single JPEG from camera
IdHTTP.Request.BasicAuthentication := TRUE;
IdHTTP.Request.Username := 'harun';
IdHTTP.Request.Password := 'Harun123';
IdHTTP.Get('http://192.168.1.64/doc/page/login.asp', ResponseContent);
// Load image to bitmap
ResponseContent.Position := 0;
imgCameraImage.Bitmap.LoadFromStream(ResponseContent);
finally
ResponseContent.Free;
end;
end;
Youtube Linki :
https://www.youtube.com/watch?v=fdxDj-r8gU0
IP kamera örnek başlangıç süresi : 1:23:55 ten itibaren
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 698
Konuları: 74
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.620
Programcı
29-05-2021, Saat: 18:57
(Son Düzenleme: 29-05-2021, Saat: 19:12, Düzenleyen: shooterman.)
@
mrmarman hocam
dediğiniz şekli ile programı çalıştırdım ve oluşan bmp dosyasının edit olarak açtığımda içeriği şu şekilde :
<!doctype html>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge" >
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Cache-Control" content="no-cache, must-revalidate" />
<meta http-equiv="Expires" content="0" />
<meta name="format-detection" content="telephone=no">
<script>
document.write("<link type='text/css' href='../ui/css/ui.css?version=" + new Date().getTime() + "' rel='stylesheet' />");
</script>
</head>
<body class="preview min-width1280">
<div class="layout-north" id="header" ng-controller="headerController">
<div class="header" ng-include="'common/header.asp'" onload="headerLoaded()"></div>
</div>
<div class="layout-west" id="channel" ng-controller="channelController">
<div class="channel" ng-include="'common/channel.asp'" onload="channelLoaded()"></div>
</div>
<div class="layout-center">
<div class="layout-center-inner" id="plugin" ng-controller="pluginController">
<div class="plugin preview-plugin" ng-include="'common/plugin.asp'" onload="pluginLoaded()"></div>
</div>
<div class="layout-south-inner" id="tool" ng-controller="toolController">
<div class="ng-hide" ng-if="bSupportPanomicMap" ng-show="bExpendPanoramicMap"><iframe id="panoramicMap" class="panoramic-iframe" ng-src="panorama/panorama.asp"></iframe></div>
<div class="tool" ng-include="'common/tool.asp'" onload="toolLoaded()"></div>
</div>
</div>
<div class="layout-east">
<div id="panelTabs" class="tabs panel-tabs">
<ul id="panel" class="panel" ng-controller="panelController">
<li module="ptzConfig">
<a id="ptzConfig" href="sidePanel/ptzConfig.asp" hidefocus title="{{oLan.ptz}}">
<div class="height17"><i class="nav-btn ptzConfig"></i></div>
<span class="ellipsis" ng-bind="oLan.ptz"></span>
</a>
</li>
<li module="generalConfig" ng-show="!oCap.bForceNotShow && oCap.bWndPlay">
<a href="sidePanel/generalConfig.asp" hidefocus title="{{oLan.generalParams}}">
<div class="height17"><i class="nav-btn generalConfig"></i></div>
<span class="ellipsis" ng-bind="oLan.generalParams"></span>
</a>
</li>
<li module="vcaConfig" ng-show="!oCap.bForceNotShow && oCap.bSupportVCA && oCap.bWndPlay && !oCap.bSupportPTZ">
<a href="sidePanel/vcaConfig.asp" hidefocus title="{{oLan.intelligentCfg}}">
<div class="height17"><i class="nav-btn vcaConfig"></i></div>
<span class="ellipsis" ng-bind="oLan.intelligentCfg"></span>
</a>
</li>
<li ng-show="oCap.bForceNotShow || !oCap.bWndPlay"></li>
<li ng-show="oCap.bForceNotShow || !oCap.bSupportVCA || !oCap.bWndPlay || oCap.bSupportPTZ"></li>
</ul>
</div>
</div>
<div class="layout-south">
<div class="footer" id="footer"></div>
</div>
</body>
<script id="seajsnode" src="../script/lib/seajs/seajs/sea.min.js"></script>
<script>
document.write("<script src='../script/lib/seajs/config/sea-config.js?version=" + new Date().getTime() + "' ></scr" + "ipt>");
</script>
<script for=main_plugin_multiVideoActiveX event="GetSelectWndInfo(SelectWndInfo)">
try {
GetSelectWndInfo(SelectWndInfo);
} catch (e) {
// todo something
}
</script>
<script for=main_plugin_multiVideoActiveX event="PluginEventHandler(iEventType, iParam1, iParam2)">
try {
PluginEventHandler(iEventType, iParam1, iParam2);
} catch (e) {
// todo something
}
</script>
<script for=main_plugin_multiVideoActiveX event="ZoomInfoCallback(szZoomInfo)">
try {
ZoomInfoCallback(szZoomInfo);
} catch (e) {
// todo something
}
</script>
<script for=main_plugin_multiVideoActiveX event="PTZCtrlCallback(iWndIndex, iMouseActionType, iPTZActionType)">
try {
PTZCtrlCallback(iWndIndex, iMouseActionType, iPTZActionType);
} catch (e) {
// todo something
}
</script>
<script for=main_plugin_multiVideoActiveX event="MouseEvent(szXml)">
try {
MouseEvent(szXml);
} catch (e) {
// todo something
}
</script>
<script for=main_plugin_multiVideoActiveX event="KeyBoardEvent(szXml)">
try {
KeyBoardEvent(szXml);
} catch (e) {
// todo something
}
</script>
</html>
@
mrmarman hocam
fmx olarak çalıştırdığımda aşağıdaki kod oluşuyor.
<!doctype html>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge" >
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Cache-Control" content="no-cache, must-revalidate" />
<meta http-equiv="Expires" content="0" />
<!-- 去除edge下将数字处理成电话的错误 -->
<meta name="format-detection" content="telephone=no">
</head>
<body>
</body>
<script>
window.location.href = "/doc/page/login.asp?_" + (new Date()).getTime();
</script>
</html>
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 698
Konuları: 74
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.620
Programcı
29-05-2021, Saat: 19:21
(Son Düzenleme: 29-05-2021, Saat: 19:30, Düzenleyen: shooterman.)
@
mrmarman hocam teşekkür ederim. Sizin örneğinizdeki kodalara istinaden IP kamerayı görebilir miyim ekranda? Ya da form üzerinden bir webbowser bileşeni ekleyip görüntüyü bu şekilde alabilirsem, webbrowser bileşenini capture olarak kaydedebilir miyim acaba?
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 698
Konuları: 74
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.620
Programcı
Teşekkür ederim @
mrmarman hocam. inceleyip sonucunu döneceğim.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 225
Konuları: 41
Kayıt Tarihi: 10-11-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 392
Acemi
Merhaba, bu konuyu çok merak ettim bende öğrenmek istiyorum nasıl yaptınız, paylaşabilir misiniz ?. Benimde elimde ip kamera var , kendi programı ile bağlanabiliyor , ayrıca webbrowser üzerinden direk görebiliyorum. Buna uygulamak isterim. Mantığı nedir ?
Teşekkürler
